DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


is hes IS cyeaienee UNDER A LICENSE AND MAY BE USED AND sorice 
ONLY IN ACCORDANCE WITH THE TERMS OF mt LICENSE AND WITH THE 
INCLUSION OF Ma hat tet COPYRIGHT NOTICE. T WARE OR ANY OTHER 
COPIES THEREOF BE PROVIDED OR OTHE Rui se MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT 
AND ST, D NOT BE CONSTRUED AS A COMMITM 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 


TO_ CHANGE WITHOUT NOTICE 
ENT BY DIGITAL EQUIPMENT 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


Original Author: John Francis 
Modification history: 


001 Met cer Carrell II1, 3-Jun-83 
ASHP thought it had only 5 arguments. See the comment for 
the MACRO Opcode_list for a more complete explination. 


002 Walter Carrell I11, 08-Jun-83 
The outside werts expects DBGSOPCODE_INDEX to return an in 
nw DBGSOpcod e_Kind_Table 


DBGSOPCODE_INDEX originally returned an index ifito 
unere’BseSOPCOD Table. This ef t changes that. The 
where DBGSOPCODE_ INDEX was ca 
ghenged to gal esgrcoo me_Index, & fecal rout ine which 
s the orig nat ° G PCODE. mt eX ouls® some fixed to make 
it work correct ly. g-1ND 4a was written to 
return an index into ‘be — Peinde tab 


003 Walter Sorrett II1, 09-Jun-83 
1. cyTTe ye o out of order in the Mnemonic 


ingtes n the appr 
4. KFC a Sion had a : Od te seg en Sd 


004 Walter Correll I11, 13-Jun-83 
ALL the 


plac 
ed within DBGENCDEC Sate Seon 


Within BBGENCDEC DBGSOPCODE INDEX 
was expected to or an ~ o- into DBG$Opcode_Name_Table. 


t 
the printing of de ietiess” of a CASE List. 
- The Linit’o ° CASE seetenents 7 : ways being read as a LONG 


byte opcode instructions had FE instead of FD in the 


2 
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table for the first byte of the opcode. 


005 Walter Carrell III, 20-jun~85 
« “S and “I were not allowed 


r 


o 
> 
a 
a 
~e 7 @ 
ie) 
@ 
C3 
vo 


nstead of defaulting to Byte. 


Correct the CASE offset address calculation 
Correct the context of ASHP 
Make DEP/INSTR for 1*# work 


006 Walter Carrell III, 11-Jul-83 
Fix Parse_Register so it doesn't use Parse_Expression 
Parse_Expression cannot be ysed because a scope may 
not be active the a DEP/INSTR is issued and therefore 
Rn is thought to be a symbol outside the active scope. 


007 Walter Carrell III, 96-Aug-85 
Enhance error reporting of instruction Encoding 


(Rn) CRn] where Rn is the "Ms for both was not caught 
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80 008 Walter Carrell II1, 20-Sep-83 

a Fix instruction encoding to allow quad and octaword literals 


REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
FORWARD ROUTINE 
Global Routines 


DBGSIns_Decode, ! Decode Single Instruction 
DBGS$Ins_Encode, ! Encode Single instruction 
DBGSOpcode_Index, ! Convert Mnemonic to kind table index ! Changed to return Kind tabl 


; ‘instead of name table index. 


Local Routines 


Opcode fone. index. ! Convert Mnemonic to name table index : 
Fetch_Instruction : NOVALUE, ! Fetch bytes nstrction stream 
Fetch_Operand : NOVALUE, ! Fetch (and optionally print) an operand 
Print_Address NOVALUE, : Print operand oderess 
Print_Operand : NOVALUE, ! Print operene va ue 
Parse_Operand NOVALUE, ! Parse one instruction operand 
Parse_Expression, ! Parse an operand (address or value) 
Parse_Register, ; pores @ register n 
Check_Register, ' See if aderess describes a register 
Store _Operan : NOVALUE, ; Store bytes in output stream 

‘ 


scan. rene. ! Separate one operand string 
Skip_Leading Blanks : NOVALUE; ! Skip over leading spaces and/or tabs 
EXTERNAL 

DBGSGB_RADIX: VECTORC3, BYTE); ! Radix settings 
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EXTERNAL ROUTINE 
DBGSCONV_TEXT VALUE, ! 
DBGSCOVER_DX_Bx, : 
DBGSPrint : NOVALUE, 
DBGSPrint_Value : NOVALUE, 
DBG Akey Identifier_PC : NOVALUE, 
DBGS$NewL ine : NOVALUE, 


DBG se-E fon, 
DBGSPrim t6. Val; 


LITERAL 


48 1 
49 1 
1 
1 
1 
1 
1 
. 2 
§ j 
4 
7) 
i 
? i 
eo | 
es : imp| d %x°00' 
8 e_0_operan = P 
65 1 simplen ~cperend = Zx'01', 
96 1 simple_2_operand = %x' g.° 
67 1 simple_5_operand = 2X'05', 
1 branch_0_operand = 2x'04', 
8 1 branch_1_operand = %x'05°, 
0 1 branch_2_operand = 2x‘ i 
71 #1 branch _5_operand = 2x°07', 
i; 1 convert_datatype = %xX'08', 
73 (1 evaluate_address = 2x'08', 
7% «1 s mpte_bit field = 2x'08', 
75 (1 routine_dispatch = 2x'08', 
16 1 locate_character = 2x'08', 
77 (1 polynomial_value = 2x°08', 
8 1 robe. for_access = 2x'08', 
| railing Sperand = %Xx'09', 
0 1 string_5_operand = ZX'OA', 
1 1 string_4_ operand = ZX'0B', 
¢ 4 string_5_operand = Zx‘0C', 
: string_6_operan = %x'0D' 
5 1 complex_SHIFT = 2x°10°, 
1 complex_ CASE = Zx'11°, 
4 complex_EDIV = 2X'12", 
i complex_EMOD = 2xX'15°, 
1 complex_EMUL = 2x°14', 
1 complex_ INDEX = 2x'15", 
; 1 complex_CRC = 2X'16°, 
3 \ complex_ASHP = Zx‘17" 
Be ! max imum_state = £x'17', 
\ context_b = 2x°00', 
3 1 context_w = 2x! ae 
| 1 context_| = %x° § . 
1 context_q = 2x'05', 
1 context_o = 2x°04', 
1 context_f = 2x°05', 
§ 1 context_d = %x° ee 
1 context_ = 2x°O7', 
1 context_ = 2x'08', 
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context_bu = %x'09', 

context_wu = ZX'OA', 

context_t = %Xx‘0B', ! size.wu base.b 

context_p = 2x'OC', ! size.wu base.b 

context_m = %X'OD', ! pos.t ize.b base.b 
context_v = ZX'OE'; ! pos.t base.b 
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The following table is used to build 2 data structures: 


DBGSOpcode_Name_Table = An + erode pet table of the Opcode names 
DBGS$Opc oc : ~Kind_table = 6 back translation table to get from an 
p code to the Name. 


Opcode_entry is a macro the is defined twice to pass over 
Opcode_List twice to buld the two tables. 


The arguments have the following definition: 


] 

' 

] 

‘ 

] 

i] 

i] 

‘ 

d 

‘ 

‘ 

4 

: 1. The first erpunent is a flag that indicates that the entry 
} has a duplicate Opcode and that it should be ignored in 
: ppeSopcode., Kind_Table. 

: ¢: The 4 ond arguaent ‘3 the MNEMONIC. It must be 6 characters. 
: - The rd argument is the Opcode. 

: 4. the fourth ‘ar argument is the state to start with in the finite 
i 
] 
i 
4 
' 
‘ 
1 
‘ 
q 
i 
q 
4 
i 
i] 
t 
4 
i] 
] 
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h 
5. The fifth and optional sixth arguments are context flags. 
Their nature is not fully understood. 


Note that the table must be in alphabetical order by MNEMONIC. 
A binary search is used to find table entries. 


The editorial starts here. 


The table is more complex than necessary for the simple matter 
of decoding for output and encoding instructions for deposit. 

one number of erqunents would have been sufficient, instead of 
the Last 3 arguments. The first byte of an argument tells you 

what you need to know about the rest of the argument. 


The intent o~ the. decod| to have enough information in the 

table to all ow t decodin g of he instructions for interperting 
watch points in the stack "End registers. The information in the 
table is not sudtiotens for that purpose. 


Opeode. ay ACBB ae, * ,branch_3_operand,context_b,context_w), 
B ° eprench. “operand, context_ -context— “w). 
“operand,context_f,context_w), 
at ri Foe ranch= operan scontext. *: context “w): 
on » OF FD" ,branch_5_operand,context_h,context_w),! 
oex'Fi’ branch” ~operand,context_ Lecontext “ws 
od * ,branch, =operand, context w,context_w), 
A * ‘simple-2-operand,context_w), 
> * ,Siaple_2_operand,context_ “b): 
° * ,simple-5_operand,context_b) 
° ' eoSimple_¢_opera context — -d 
a e 
. e 
" fF 
* fF 
“ F 


) 
oSiaple_5_operand,context_d) 
oSimple_2_operand,context_ 
operan ocontent tt) 
) 
) 
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i) e rand,context 
D',siaple ~operand. context : 
0 “operand,context 
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H 4 1 Opcode_Entry(1,*ADDHS ',2x'61FD',simple_3_operand,context_h), 

3 ial 1 Opcode_Entry(1,*ADDL2 °,2x'CO’ ,simple_¢_operand,context_l), 

3 4 1 Opcode_Entry( ADDL *ax'ci' Simple. -operand,context_l), 

3 4 1 Opcode_Entry(1,"ADDP4 °,2x'20° ,simple_2_operand,context_p), 

; 240 4 1 pcode_Entry(1,"ADDP6 *,2X'21' ,simple_5_operand,context_p), 

; 24 s 1 Opcode_Entry(1,"ADDWe °,2x'AO' ,simple_2_operand,context_w), 

: $e nO37s | Opcode-ENtry(d,"ADUC. '<HK'DR' ‘staplez-cperand:content=1>, 

3 code_Entry(1, ° osimple_2_operand,context_l), 

> 246 4 i 1 Opcode Entry (1 “AOBLEQ" x'F3° “branch” “operand.context-[,context_b), 
: $48 nO38 DeOdeZENErHUL TASH cAK'TRY ‘complex SHIRT. ccontextrtsor en 
ERR 1 SEESEESERECYCISSARME BEER: ceampleecAGHe condext bcSntoxt, | sfmple_S.operand to comple 
Ps a 6 ° ° x ° x oe e 

3 rk i, | 1 Opeod “Entry( -"BBC °,2xX*E1' ‘Brench-T operand. context-,context_b), 
3 0 ial ; 1 Opcode_Entry(1,"BBCC °,2X'ES' ,branch_1_operand,context_v,context_b), 
3 1 ial i Opcode_Entry(1,°BBCCI °,2X'E7" ,branch_1_operand,context_v,context_b), 
3 ¢ “ j Opcode_Entry(1,°BBCS °',2X'E3' ,branch_i_operand,context_v,context_b), 
; 25 i] 5 1 Opcode_Entry(1,"BBS °,%X"EO’ ,branch_1_operand,context_v,context_b), 
> 254 Ki 1 Opcode_Entry(1,"BBSC ',2X°E4’ ,branch_1_operand,context_v,context_b), 
3 €20 ial 1 Opcode_Entry(1, °BBSS ee ES, ebranch_1_operand,context_v,context_b), 
; 2$ " 1 Gpcode Entry te eeeee eane * ,branch_i_operand,context_v,context_b), 
: 2 M 1 Opcode_Entry(0,"BCC ‘°,ZxX°1E* branch. “operand.context—b/, 

3 3 0390 1 Opcode_Entry(0,"BCS ‘',ZxX°1F* ,branch_O_operand,context_b), 

: 25 40391 1 Opcode_Entry(1,°BEQL ‘°,2X'13" ,branch_O_operand,context_b), 

: 260 a 3 1 Opcode_Entry(0,"BEQLU °,%x'15" ,branch_O_operand,context_b), 

; 261 0393 1 Opcode_Entry(1,"BGEQ °,%x'18° ,branch_O_operand,context_b), 

3 pcode_Entry(1, a ebranch_O_operand,context_b), 

6 M0394 1 Opcode_Entry(1,"BGEQU °,ZxX°1E° .b h d text_b) 
; 26 m 0395 | Opcode_Entry(1,"BGTR °,2xX°14° ,branch_O_operand,context_b), 
; 264 M0396 1 Opcode_Entry(1,"BGTRU *,ZX'1A° ,branch_O_operand,context_b), 
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; 40397 1 Opcode_Entry(1,°BICB2 ',Zx'8A' ,simple_2_operand,context_d), 
3 1 M 33 1 Opcode_ ntry(?,"BICB Bae ‘simples “operand, context-b) 
: 268 i 1 Opcode_Entry(1,"BICL2 ',2Xx'CA’ ,simple_2_operand,context_l), 
; $9 m 04 1 Opcode_Entry(1,"BICL tS »simple_5_operand,context_l), 
; 4 e : pcode_Entry(1, 'BICPSW' ,2x'B9' ,simple_]_operand,context_w), 
5) # i DpcodecENery(1., BICWS "CHK'AB’ “simpterScoperend. context =o), 
: 5t8 M0404 1 pcode-entry(1.'BISB akg + ${mplesz-operand.context-p), 
: 274 M0405 1 Opcode_Entry(1,'BISBS °,2X'89' ,simple_5_operand,context_b), 
: oe mB OcOF Opcode-Entry(t."Bists “cAK'CS" ‘simptenScoperand;context=U). 
3 a ° ° osimple_5S_operand,con tie 
s ay M 88 1 Opcode_ ntry (1. BISP Ww’ ,2x°B8' ‘simplen “operand,contextw), 
; 278 m 0409 1 Opcode_Entry(1,"BiSwW2 ',2X'A8' ,simple_2_operand,context_w), 
: $86 moctt Dpcode-EntryCl. "BITS ‘cx'9s" ‘simpte-2-operend-contect-py, 
; ¥ Mes . simple_2_operand,context_b), 
3 eel M tig 1 Opcode-Entry(1,'BITL *,2X'D3' simples “operand.context-L), 
3 Hy m 0415 1 Opcode_Entry(1,‘BITW ',2Xx'BS' ,simple_2_operand,context_w), 
$ a M0414 1 Opcode_Entry(1,‘BLBC ‘',2x'E9’ ,branch_l_operand,context_l,context_b), 
: Sas R Octg Opcode-Entry(1,"BLEG ‘<2x'1s" ‘pranchcOvoperend.contest=bso nen 
; a ° °. * ,branc operand, contex . 
3 M0417 1 Opcode_Entry(1,"BLEQU °,%X'1B" ,branch_0_operand,context_b), 
3 Ha 4 Beis 1 Opcode-Entry(1,"BLSS eyed gs ebranch_ “operend.contextb), 
; 288 M0419 1 Opcode_Entry(1, 'BLSSU Vomx i iee -branch_O_operand,context_b), 
: Sp HOGST | _bcodecEneryeQr‘eueau 'ca1'48:  ‘Braneh-B-operang”content=b3; 
: $5 UE Bitodeceneryets sane "cEESTT: ‘brane R-B-operand.concext_b», 
| mss | RRCGISENEUSseaee Scarcdgs “pean operang:content-t) 
; ie ° ‘. * ,branch_O_operand,context_b), 
: M be $ 1 Opcode-Entry(1, BSBV mints ebranch_ “operand context_w), 
m Sess See e entry TeBUed SCETMEEEEe ce eptecpeoperenay 

3 * ° ° osimple_O_operand), 

3 M 04 5 1 Opcode“Entry(1,' a eb | Se ‘Dranch” “operand, context_b), 
s 40450 1 Opcode_Entry(1,°B *,2x°10° ebranch. operand,context_b), 
; m 0431 1 Opcode_Entry(1,"CALLG ',ZX°FA’ ,routine_dispatch,context_b,context_b), 
3 ial ¢ 1 Opcode_Entry(1,°CALLS , eX! FB" eFout neg) speten contents context_b), 
x GocodenEMEry I ecEASED wcaxver, scoeBLex CASE context bt. 
; M0435 1 Opcodeentry(1,°CASEW °.2X°AF® complex CASE context _w), 
; M 1 Opcode_Entry(1, *,3X'BD' ,simple_T_operand,context_w), 
: _ 1 Opcode_Entry(1,°C *,2X°BC* ,simple_1 nd text_w) 
; 0438 1 Opcode-Entry(1."CHMS '<ZX'BE' ‘siaple7l~operand.context-w), 
z 4 3 1 Opcode-Entry(1,"CHMU ',XX'BF' esimplei-operand.context"w), 
3 M0440 1 code_Entry(1,‘CLRB + Bega" -Simple_1_operand,context_b), 
: m 0441 1 Opcode_Entry (0, ° CLRD ox! ¢* oSimple_l_operand,context_d), 
; mn oces | DpcodecEnery(O,"CLRG “cAK'TC’ “simplen|-operand.context=9>. 
; M0444 1 Opcode-Entry(0. 'CLRH ax" 7CED' simple} operand.context-h), 
; M0445 1 code_Entry(1,'CLR i esimple_1_operand,context_l), 
3 ial 48 1 Opcode_Entry(1,‘CLRO ‘,2X"/7CFD’,simple_1_operand,context_o), 
3 M0447 1 Opcode_Entry(1,°CLRQ ‘,Zx'7C* ,simple_1_operand,context_q), 
3 M0448 1 Opcode_Entry(1,"CLRW °',2X°B4’ ,simple_l_operand,context_w), 
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s 3 M0449 1 Opcode_Entry(1,'CMPB_ ',2x'91' ,simple_2_operand,context_b), 
; 8 i 1 Opcode_ Meryl ceoee ‘aX! 4}: string: “operand, context_t,context_b), 
3 1 Mm 04 1 Opcode_Entry(1, CMPCS ° 2X , ostring_d operand,context_t,context_t), 
; : # 1 Opcode-Entry(1,'"CMPD ',2X'71' {simple-e-operand,context—d), 
; M 04 1 Opcode_Entry(1,"CMPF ‘°,2xX'S1' ,simple_2_operand,context_f), 
BS ARES | RRERMRSEneeP AA semen ScRtcayBectlmpte-s-opereng:centere-@): | 
; 8 ° onX! osimple_2_operand,context_h), ! 
: ° 4 $ 1 Opcode-Entry(1; MPL *,eXx'D1' -siapl ie “operand.context= ° 
3 M04 1 Opcode_Entry(1,‘CMPP3 ',2x'35° Str ng_s_operand,context_p,context_b), 
: RRR | BatedecEnergedsteney' scHtvees Sstaptecpre field-content-eyontext 
: ad ° ° ° Dit. ot xt_m,context_l), 
HR PRE ESRI SSBY, SOREN, SEISSIE-E art any O peereco 
; v eal ° ° ° aad oC xt_m,context_U), 
: $ 4 § 1 code_Entry(1,°CRC Bini t “complex_Ch ), 
3 iI 1 Opcode_Entry(1,'CVTBD ',2x'6C’ ,convert_datatype,context_b,context_d), 
3 i. $e 1 pcode_Entry(1,°CVTBF °,2x'4C* ,convert_datatype,context_b,context_f), 
3 5 4 2 om pocode Entry) )-.evree * ,2X'4CFD* ,convert_datatype,context_b,context_g),! 
; 4 $6 1 Opcode_Entry(1,‘CVTBH ang FD’ ,convert_datatype,context_b,context_h),! 
3 M0467 1 Opcode_Entry(1,°CVTBL ',2X'98' ,convert_datatype,context_b,context_l), 
3 8 M0468 1 Opcode_Entry(1,‘CVTBW ',2x'99° ,convert_datatype,context_b,context_w), 
; 9 “ +4 1 Opcode_Entry(1,°CVTDB ',2x'68° ,convert_datatype,context_d,context_b), 
3 0 _ 8 0 1 Opcode_Entry(1,°CVTDF °,2x' g convert _datatype,context_d,context_f), 
3 1 m 0471 1 Opcode_Entry(1,°CVTDH *,2X°32FD’ ,convert_datatype,context_d,context_h),! 
3 ¢ m Berg 1 Opcode_Entry(1,‘CVTDL ',ZX'6A' ,convert_datatype,context_d,context_l), 
3 04735 1 Opcode_Entry(1,'CVTDW i te convert_datatype,context_d,context_w), 
: 4 mM pare 1 Opcode_Entry(1,'CVTIFB *,2x°48° ,convert_datatype,context_f,context_b), 
3 5 m 0475 1 Opcode_Entry(1,'CVTFD it: convert_datatype,context_f,context_d), 
: 6 i] pee 1 Opcode_Entry(1,°CVTFG °,2Xx°9 EB, eConver’ datatype.content. | context_9) «| 
3 7 M0477 1 Opcode_Entry(1,'CVTFH ',2X°98FD* ,convert_datatype,context_f,context_h),! 
3 8 0478 1 Opcode_Entry(1,"CVTFL *,2X°4A' ,convert_datatype,context_f,context_l), 
; 9 m 0479 1 Opcode_Entry(1,°CVTFW °,2x°49° ,convert_datatype,context_f,context_w), 
; 350 i, ets 1 Opcode_Entry(1,‘CVTGB 1 BN SEED, -convertdatatype.context_g.context_b)./ 
3; 351 m 0481 1 Opcode_Entry(1, ‘CVTGF sane FD’ convert _datatype,context_g,context_f),! 
3 25 m 04 ¢ 1 Opcode_Entry(1,'CVTGH °,2X°56FD’ ,convert_datatype,context_g,context_h),! 
; Mm 04 1 Opcode_Entry(1,'CVIGL ',2X'4AFD' ,convert_datatype,context_g,context_l),! 
: 388 mn Oc8s | Dpcode-Entry(1_"CVINB "cAX°6BED' cconvert=datatypeccontextcRecontent=p> ! 
5 a ° ° convert_datatype,context_h,context_b),! 
; 2$ 4 Bg 1 Opcode“Entry(1,"CVTHD a He TED! conser eo data tibe content h contentnay | 
. 2 M 04 1 Opcode_Entry(1, 'CVTHF Ex bern, convert datatype.context context. 1) «| 
3 338 "4 8 1 Opcode_Entry(1,°CVTHG ', 2X" 76FD' ,convert_datatype,context_h,context_g),! 
3; 359 m 0489 1 Opcode_Entry(1,°CVTHL : EX‘GAFD! cconver t=datatype context -h-context_U) | 
3 0490 1 Opcode_Entry(1,°CVTHW °,2X°69FD* ,convert_datatype,context_h,context_w),! 
3 1 m 0491 1 Opcode_Entry(1,‘CVTLB *,2x"F6" ,convert_datatype,context_l,context_b), 
; § 4 35 1 Opcode_Entry(1,°CVTLD 1 2 econvert_datatype,context_l,context_d), 
; 04935 1 Opcode_Entry(1,"CVILF ',2Xx°4E*  ,convert_datatype,context_l,context_f), 
3 m 0494 1 Opcode_Entry(1,°CVTLG 0 ae geLD, econvert datatype context | .context_g) «| 
: pcode_Entry(1, LH ', convert_datatype,context_l.context_h),! 
5 M0495 1 Opcode_E (1,°CVTLH *,2X°6EFD' d l Fel 
3 6 136 1 Opcode_Entry(1,"CVILP *,2Xx°F9° ,convert_datatype,context_l,context_p), 
; ™ 0497 1 Opcode_Entry(1,°CVTLW *,ZX"F7" ,convert_datatype,context_l,context_w), 


3 

NCDEC b-5e 1984 00:24: AX-11 Bliss-32 
vous 1e-83b-13ke $3:98:87 — HokauG. SkcSbecen 
; ial 1 Opcode_Entry(1,'CVTPL ',2x'°36° ,conver ° ° ° 
; i 38 1 Opeode-Entry{t  CVIPS iy f sconvertcdatatype.context-p-context 0), 
; s 1 Opcode_Entry(1,"CVIPT ',2x'24' string S_operand,context_p,context_t), 
3 4 . Opcode_Entry(1,°CVTRDL* ,2X° 8° econvert_datatype,context_d,context_L), 
: M § 1 he Ho MEA BS SLL B’ ., convert datatype,context_f,context_l), 
5 M 1 Opcode_ ntry(1, (CVTRGL® , 2X" 4BFD convert datatype,context_g,context_l),! 
3 4 1 Opcode_ ntry (1, 'CVTRHL* , 2X" Bf0" convert detatype.context. econtext_l),! 
; . 5 : pcode_Entry(1,'CVTSP ,oeX'09' convert datatype,context_t,context_p), 
; Opcode_ ntry(1,°CVTTP oaks g. ostring_5 Sparen’ consent Sensent Bie! 
: : } code_Entry(1, 'CVTWB eek , econvert_datatype,context_w,context_b), 
3 Opcode_Entry(1,'CVTWD ,eaX 6D’ «convert datatype,context_w,context_d), 
3 i, 1 pcode_ ntry(1,°CVTWF oie Dd’ convert _datatype,context_w,context_f), 
; 4 9 1 Opcode_ ntry(1,*CVTWG Moder ye convert datatype content _u.context_9) «| 
3 m0511 1 Opcode_ ntry(1,°CVTWH veexe FD’ ,convert datatype, context_w,context_h),! 
moss 4 DpcodecENtryi1,"DECB” 'cEK°SP* ‘SimptecT operand:contextaphoe ne 
; m0514 1 Opcode-Entry(1,"DECL '.3x'D7" ;simple-1_operand,context_l), 
3 m 0515 1 Opcode_Entry(1,"DECW ‘,2x'B7' ,simple_1_operand,context_w), 
3 8 18 1 code_Entry(1,"DIVB2 °,%x' ¢. osimple_2_operand,context_b), 
: m 0517 1 Opcode_Entry(1,"DIVBS °,2x'°87° ,simple_S_operand,context_b), 
; m0518 1 Opcode_Entry(1,"DIVD2 *,2x'66" ,simple_2_operand,context_d) 
: M 219 1 Opcode-Entry(1."DIVD vax! ‘. “simple: ~operend.context=d), 
: m 0520 1 Opcode-Entry(1."DIVF2 °<2x°46" ‘simplec2-operand.context-1), 
F m 0501 1 Opcode-Entry(1."DIVES *:2x°4?" ‘simple-S-operand,context-f), 
3 i 33 ¢ 1 Opcode_Entry(1,'DIVG2 °,2x*46FD' ,simple_¢_operand,context_g), ! 
irae OpcodeENtryCl, "DIVE *cEk° GOED" csimplecz-operand;context=B) 
; M0525 1 Opcode-Entry(1,"DIVH NO ROED! simp “3-operand.context_h), i 
| m Geer | SBeeueEnEePeNSSBNVLG scanvees -Slapte-Gcoperang center} 
3 » 2 e 5 _2.operand,context_l), 
3 m 0528 1 Opcode-Entry(1,"DIVP itis ‘simples ~cperend content=), 
3 m 0529 1 Opcode_Entry(1,‘DIVW2 °,2X°A6" ,simple_2_operand,context_w), 
; m 05350 1 Opcode_Entry(1,"DIVWS °,2X'A7' ,simple_5_operand,context_w), 
3 " 5 1 } See a UA 3 ae oe string: epoerand.context_p.context_b), 
; * ° ° ocomplex_ . 
: RG | Seseeeneest Cae C-REE: ccealeeiag coment b.conest 
Py a ° ° ° ail ° xt_Ou, MT_T), 
3 ‘I $8 5 6% Opcode"Entry (1, EMODG +L: $4F0 ScomplexEROD econtext_wu,context_g),! 
; m 05 4 Opcode_Entry(1,°EMODH *,2X'°74FD*,complex_EMOD ,context_wu,context_h),! 
; #05 1 Opcode_Entry(1,°EMUL ‘,2ZX'°7A’ ,complex GAUL) « 
: 409 m 05 1 Opcode_Entry(1,"EXTV ‘,ZX'EE* ,simple_Bit_field,context_m,context_l), 
; 410 m 05 1 Opcode_Entry(1,"EXTZV ‘,ZX°EF* ,simple_bit_field,context_m,context_l), 
3 «411 m 0540 1 Opcode_Entry(1,‘FFC ‘,2xX°EB’ ,simple_bit_field,context_m,context_l), 
PH ABER | RRERIRSEnery AAs SiatySCRESDAS RULES RI SG urahdscontentcn-content=0 
: 614 228 1 Opcode“Entry(1,"INCB '.%X°96" csimple-1_operand,context_b), 
: ae moses Opcode-Entryil_*INCW "CEX°BE" ‘simpleni~operend:context=w), 
: 419 M0546 1 OpcodeEntry(1, ° INDEX Bite “complex INDEX), ; — 


voru0o™ ; 
-$ep-1984 00:24: 

; 41 Mm 054 1§-S00-1984 9 94:49 AX-11 Bliss-32 V4.0- 
. 2 6 m oech | Qocode Entry(].; 1NSQHI® £1" 5¢" Beis) EOEauG. SkcSbacencvec 053.1 Page 10 
. We SecS Rea HAR merce ecciee pete ~ 
; § " Opcode-entry(1,° oe ' ,simple-e- context b), 
: 4 ™ } Opcode-Entry( o, INSV SEX'FO! «simple. qorgrand.context_p). 
3 425 : bee na OE A a 1B : =p it. feld-context=t co 
on ee ReMi OR saint seen 
; 4 m 055s (1 Opcode~ UA aa o *simples ener enag ened 
s oss 4 1 ate te RAS 9 07 Se a : 
: $8 m O87 | Gpeode Freer ACORS HH 9e. ssfaplecg_operand:context=tie 
> 431 q 1 Opcode~ wet + CORE *2X'D9" *simple” ~operand,context_b) , 
; 6 . 1 Opcode~ neryete, COMW a ° *Sinplene” perand,context_l), 
s 6 ¢ Hs i 1 Boe o een Entre C1. MNES . X'DB’ ‘simpley .operand,context_w), 
> 435 * $¢ } DocodenEntry Cd. MNEGE *,BX'7' simple. noperend.-context_b). 
3 iy M : 1 SocodecEntry(]. "ANECG oe! ' *simpley noperend consent is 
3; 4 4 05 cogecEntry(] . "MNEGL yoeXt FD’, simple se rerend senkent. a 
; 440 m 05 Opcode-Entry(1, "M0 GW 'LEX'AE’ jsimplee-o rend context}. 
; 441 ™ 208 1 OpcodeEntry( i * BX 3E Sealuate’ see and,context_w), 
; 44 m 0870 4 OpeodenEntry(O,"MOVAR "caX°DE® gt pont nee ep meet Stee meet 
s 46 m 0571 ; Opcode_Entry( a Le evaluate address. context_d, context}, 
3 OM8 m 0572 1 Opcode_Entry(0,' Mer i 1 ,evaluate_add ess,context_f,context_l), 
: 445 cod = 6 BX" 7EFD',e - ress,context_ cont oad & be 
Hp RR Beste inert oBesgtualute talent eee t ester 
: a ROBE GpeodefntryCls ADVAN * 41°56 aroha tev ens-teteet tamer 1 
° i] ° ° . ot? 
: 45 OST | Opcode-Entry (1 ROVE ae -sinple. cadaresscontent-y,contert=; 
4 "0579 1 “Entry(1,"MOVCS *.2X'oc’ ; ng_3_operand.c ore 
3; 45 cod oBX ost econtext_t,cont 
=: | Bbeodeskneey tt move HES a eer er 
: m 05 1 e“Entry(1."MOVG '.2X' , Simple, “operand.c ~9\° 
2 435 m 05 g Opcode"Entry(1."MOVH ', X'SOFD';simple-2-operand, ontext_f), 
3; 4 05 1 Opcode_Entr a. MO eax FD’ simple oo an econtext_9). 
: $28 m 0585 1 Opcod mente MOD voaxe simple” neporend content. ae 
: 43 m 05 ! OpcodevEntry(1, : +SEE PDE" ssi le~ maperend 2entens he 
: 439 : OpeodenEntry(] "MOVE 1 ee 34 stringy $s. perand,context_o), 
: 460 8 : \ + ee eA a -Simple_ aperend -Sentens 2 context_b), 
> 461 4 ' Opcode“ENtry (1, MOVE "EX'7D'  ssimple- ~operand, context 5, _e 
: $6 E : Opcode_é eas i *string-6-op rand,context_q), 
: 46 4 | Opcode_ ede dS Ah a F* ,string_ weperend context _§ content ) 
2 464 Ss : 1 OpeodeENtry(1 "ROVE it “Sinple> Toperand,context_t ,context_t), 
: 465 1 Opcod K yoae VZBL°, x A® ,co erand.context_w), as"s 
; 466 q 538 ' See oeem Ente eC] MOVEUL ax! Se conver datatype .context_b.context_l} 

’ See ogenENtr yd IPR S* -EX"DA® -convert_datatype. context. context_y}. 

codiun ‘Sielskoemuunt 


Hosen 1984 00:26:49 yaNetY a ige= 42, 


: 


; 6 i 1 Opcode_Entry(1,°MULB2 °,2x'84° .simple_2_operand,context_b), 

3; 4 il 1 Opcode_Entry(1,°MULBS °,2x'85° ,simple_5_operand,context_b), 

3; 4 il 1 Opcode_Entry(1,"MULD2 °,2x'64° ,simple_¢_operand,context_d), 

; 4 i] 1 Opcode_Entry(1,"MULDS °,2x'65' ,simple_S_operand,context_d), 

3; 4 4 1 Opcode_Entry(1,"MULF2 °,2x'44° ,simple_2_operand,context_f), 

; 47 ial 1 Opcode_Entry(1,"MULFS °,2x°45° ,simple_5_operand,context_f), 

3; «47 i 1 Opcode_Entry(1,"MULG2 °,2X'44FD" ,simple_2_operand,context_g), ! 
; 475 4 1 Opcode_Entry(1, ‘MULG mf FD’ ,simple_ =operand,context_9), ! 
3 $f ial 1 Opcode_Entr (1, °MULA NB aple_¢_operand,context_h), : 
3; 47 ial 1 Opcode_En AY ect * ,AX'OSFD* ,simple_S_operand,context_h), 3 
3 $38 % 1 Opcode_Entry(1,°MULL2 °, xi cg! oSimple_2_operand,context_l), 

; 4 ial } Opcode_ neryt) > ULL *, ax cc’) =, simple_S_operand,context_l), 

3; 4 4 Opcode_Entry(1,"MULP ', x35) oSimple_S_operand,context_p), 

; 481 ial 1 Opcode_ nery ty mule *,BX'AG’ ,simple_2_operand,context_w), 

3; 4 i 1 Opcode_Entry(1,"MULWS ‘,ZX"AS* ,simple_5_operand,context_w), 

: 4 4 1 Opcode-Entry(1,'"NOP  ',2X'01' Jsimple- spperend) 

3; 4 K 1 Opcode_Entry(1,"POLYD ‘,2x'°75° ,poly al_value,context_d,context_t), 
3; 485 ‘aI 1 Opcode_Entry(1,°POLYF °,2X"55° ,polynomial_value,context_f,context_t), 
3; 4 i 1 Opcode_Entry(1,"POLYG °,2X'5S5FD° ,polynomial_value,context_g,context_t),! 
; 48 fal 1 Opcode_Entry(1,°POLYH °,2X'75FD* ,polynomial_value,context_h,context_t),! 
3; 488 * 1 Opcode_Entry(1,° *,2X°BA’ ,simple_l_operan context ws, 

3; 489 ial 4 Opcode_Entry(1,°PROBER',2x°0C’ ,probe_for_access,context_b,context_t), 
: 490 ial 1 Opcode_Entry(1,*PROBEW’,Zx'0D' ,probe_for_access,context_b,context_t), 
; 491 ial 7 Opcode_Entry(1,°PUSHAB’ ,2Xx°9F* ,simplée_1_operand,context_ 5, 

; 49 fal 1 Opcode_Entry(0,"PUSHAD’,2X°7F° ,simple_l_operand,context_d), 

; 49 " 1 Opcode_Entry(0,°PUSHAF’,2X'DF* ,simple_l_operand,context_f), 

3 4946 * 1 Opcode_Entry(0,"PUSHAG’ ,2X'°7F° , japle_t operand. context_9 ° 

; 495 ia 1 Opcode_Entry(0, *PUSHAH’ ,2X"7FFD",simple_1_operand,context_h), ! 
3 $36 - 1 Opcode_Entry(1,*PUSHAL’,2X'DF® ,simple_l_operand,context_l), 

; 49 * 1 Opcode_Entry(1,*PUSHAO’ ,2X'7FFD’ ,simple_1_operand,context_o), ! 
; 498 * 1 Socode Entry e+ pucwage eeegee esimple_1_operand,context_q), 

; 499 ial 1 Opcode_Entry(1,*PUSHAW’ ,2X°SF° ,simple_l_operand,context_w), 

3 300 " 1 Opcode_Entry(1,"PUSHL °,ZX'DD® ,simple_1l_operand,context_|), 

; 501 M 1 Opcode_Entry(1,' *,2X°BB* ,simple_l_operand,context_w), 

; 208 4 1 Opcode_Entry(1,"REI °,Zx°02' ,simple_O_ope 5, 

3; 50 a 1 Opcode_Entry(1,°REMQHI’,ZX"5E° ,simple_2_operand,context_b), 

; 504 i 1 Opcode_Entry(1,*REMQTI",2x°SF° ,simple_2_operand,context_b), 

; 505 iI 1 Opcode_Entry(1,°REMQUE’,Zx‘OF* ,simple_2_operand,context_b), 

; 5] § 1 Opcode_Entry(1,"RET ‘°,2x°04" ,simple_ rand), 

: 50 8 1 Opcode_Entry(1,°ROTL ‘,2x°9C’ complex SHIFT context_l), 

3 os i i Opcode_Entry(1,° *,2X'05° ,siaple_O_ nd), 

; a 1 Opcode_Entry(1,°SBWC °,Zx°D9" simple. _operand,context_l), 

: 510 " 1 Opcode_Entry(1,°SCANC *,ZX"2A° ,string_4 operand,context_t,context_b), 
: 511 s 1 Socode_Entry(t., * 2X" 5B° -tocate character .context_ econtext_t), 
3 \§ % 4 Opcode_Entry(1,*SOBGEQ’,2x°F4° ,branch_1_operand,context_l,context_b), 
; (51 ‘aI 1 Opcode_Entry(1,*SOBGTR® ,2x°F5° ,branch_1_operand,context_l,context_b), 
3 «514 4 4 Opcode_Entry(1,°SPANC °,2X"2B° ,string_4_operand,context_t,context_b), 
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18-5e - 324: A 
Ve-Sep-1986 Soife:s) — EoeauG. 
Opcode_Entry( UBB2 *,2xX'82" ,simple_2_operand,context_b), 
Opcode_ ntry( ss *,2x°85' eieete 7 5 rand,context_b), 
Opcode_Entry( UBDE | -BX'O0' .Simple_¢_operand,context_d), 
Opcode_Entry( UBD> | -BX°O3" oSimple_S_operand,context_d), 
Opcode_Entry( UBFe | -aX'4e" .simple_¢_operand,context_f), 
Opcode_Entry(1, ‘SUBF + omX'G Simple, -operand,context_f), 
DpcodecEntry(i,"SuBcs  “EX'CSED' csimplecScoperand-context=), 
Opcode_Entry(1, 'SUBH Bg FD’ ,siaple. “operand.context-h), 
Opcode_Entry(1, °SUBH oie FD" ,simple_>_operand,context_h), 
Opcode_Entry(1, °SUBLe °.2X'Ce’ simple ¢_operand,context_l), 
Opcode_ neryt sus oie , Simple. .operand,context_l), 
Opcode_Entry(1,°S ,oaki gg, «Simple_¢_operand,context_p), 
Opcodenentry 1 SuBue ENO" 'SimblenS-operand.content=o). 
Gbcode-fneryilsaveeix: argh: ‘aiaptecOoopsrandisonees 
Opcode_Entry(1,'TSTB8 Bi * oSimple_|_operand,context_b), 
Opcode_Entry(1,"TSTD °,2x oSimple_l_operand,context_d), 
] . o 
Gpcoge-entrytt stare 'caN:S8rp+“staptec|-opsrand:context=p) 
Opeodenentry (i TSTH ° 2X" tb ssimplect-operend. context De 
Opcode_Entry(1,°TSTL °,2X'D5' .simple_i_operand,context_l), 
Opcode“ENEry(. AEC. “CAK'EC' ‘simplecO-operands om 
Opcode_Entry(1, ‘XORB oe te osimple_2_operand,context_b), 
Opcode_Entry XORBS * ,2X dD’ oSimple_5_operand,context_b), 
Opcode_Entry(1,°XORLe °.2x°CC*’ simple e_operand,context_l), 
Opcode_Entry(1,'XORL +o BX CD’ .simple_5_operand,context_l), 
Opcode_Entry(1,"XORW2 °,ZX°AC’ ,simple_2_operand,context_w), 
code_Entry(1,"XORWS °,ZX°AD’ ,simple_5_operand,context_w) 


End of definition of MACRO Opcode_List 
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1e¢ 
{ ! 
i Used in, the macro Opcode List which is used in the followin i 
} GLOBAL BIND to 5ettes psttotode. Name_table . 
5 = i 
a MACRO Opcode_Entry(Flag, Name, Code, Kind, Argl, Arg2) = 
§ Lal a ope rbascts Nam 2. 8 8 
33 c oi te ce @) étru ZX°FF*) ZTHEN (Code) ZELSE (Code)*8 %FI), 
4 VTECHP® CHLENGTH LSS 5) ZTHEN O ZELSE 
6) A ZIF sPi5NGTH EQL 5) ZTHEN (Argi) ZELSE (((Argl)*4)4(Arg2)) 
og ZFI SFI 
64 GLOBAL tha D 
65 DBG 1 Name Table = 
$8 GORD (BYTE (ZASCII *222222°) ,WORD(0,0) ,Opcode_List) : BLOCKVECTOR C,10,BYTEI; 
68 'e¢ 
9 


So 


] 
: Undeclare Opcode_Entry so that another definition of the macro ! 
H Opcode_Entry can be defined the to build the back translation : 
: table, DBGSOpcode_Kind_Table. H 


UNDECLARE XQUOTE Opcode_Entry; 


RO Opcode_Entry(Fla Code, Kind, Argi, Arg2) = 
ents pcode_ inden, Re my index + 1) s ° 


~ 
_ 


SN LSSaVTs 


be | 
aN 


SLRENSLESELEALERLS Soe 


I 
_ 
aELSt (Code LSS %X°100") THEN (Code) ELSE (((Code)*-8)+%x'100°)] = Opcode_Index 


ufo * tmnt Index, Ignore_Index + 1) 
+ Ignore_Index] = 0 


SSLEAE 
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COMPILETIME 
Opcode_Index = 8. 
Ignore_Index = 0; 


GLOBAL 
DBGSOpcode_Kind_Table : PSECT(DBGSPLIT) VECTOR(512,WORD] PRESET(Opcode_List); 


UNDECLARE ZQUOTE Opcode_Entry; 
LITERAL Opcode_Table_Size = Opcode_Index; 
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OWN 

Op_Buffer : BLOCK (16,BYTE), 

Data Size : PSEeT (DBGSPLIT VECTORC12,BYTE] PRESET( 
context.b] = 1, context.wj = 2, 
context_lj = 4, context.qJ = &, 
context_o)] = 16, 
context_fj = 4, context.dj = 8, 
conten’ ie = §. context _hj = 
context_bu) = 1, context-wu) = 25, 

Data_Type : PSECT(DBGSPLIT) VECTORE12,BYTEJ PRESET( 
context_b) = dsc$k_dtype_b, context_wj = dsc$k_dtype_w, 
context_lj = qsc® _dtype_l, context_qJ = dscS$k_dtype_q, 
context_oJ = dsc$k_dtype_o, 
context_fj = dsc$k_dtype_f, context_d] = dsc$k_dtype_d, 
context_gJ = qsc$k.dtype.9. context_h]_ = dsc$k_dtype_h, 
context_bul= dsc$k_dtype_bu, context_wuJ= dsc$k_dtype_wu); 
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IND 
erand_ Value = Op Buf 
“Per = UPCIT 


% : CEE: : ESE: 0. 
.'2",°2°, 0, 


YTECZASCIC ‘!AD"), 
YTECZASCIC “!AC*), 
YTEC*,"); 
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1 

1 

1 

1 

1 

1 

j 

1 

1 

j 

1 

4 

4 

1 

1 

4 

1 

4 

j 

: 

1 he Pe 0 m 2 *7° a a - 
1 : vecTort, LONG), 
1 Format_AD = UPLIT B 
1 Format_AC = UPLIT 8B 
' comma = UPLIT B 
' MACRO 

1 
1 
1 
1 
4 
1 
4 
i 
1 
1 
1 
4 
1 
i 
{ 
1 
1 
1 
1 
1 
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1 
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ifst0-198e 93:72:87 EOfeuc. SacSoecencvee.035;1 
COON, SOUT INE DBGSIns_Decode(Start_Address,Print_Flag,Entry_Flag) = 


BUILTIN ACTUAL COUNT; 
try Pointer; 


4 nal Fla : VOLATILE, 
Erfor “Value : VOLATILE; 


eT ee Handler(Sig_Args,Mech_Args,Enable_Args) = 
MAP Sig RAcgs : REF BLOCK( BYTE), 
mech A Args : ner tattle (BYTE, 
EXTERNAL Tenurtne st SYSSUNWIND c LOH): ing. Mode (General); 


ie -$tg Ar petenrsi 3i9 name) EQL ss$_unwind THEN RETURN ss$_continue; 
. Rabe e_Args(TJ) THEN RETURN ssS_resignal; 


Mech_Args(chf$l_mch_savrO] = .(.Enable_Args(2]); 


SYSSUNWIND(0,0); 
RETURN ss$_continue; 


“IDENT \VO6=000\ 


* IDENT 
.PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
3F SF OF. Sh00°" oof 00 P.AAA ASCII \222222N 
20 20 42 4 o BR “ASCII VAcee \ 
**e000 1 “WORD © 25.344 
1 "BYTE 7 
1 1 “BYTE 1 
20 20 44 42 43 1 1% ASCII ace \ 
oF iC “BYTE S 
1 10 “BYTE 97 
20 20 46 42 43, 41 3 ASCII \ACBE \ 
9 $ “BYTE : 
1 “BYTE 81 
20 20 47 42 43, 41 8 ASCII \ACRG \ 
OF “BYTE é 
: 1 “BYTE 113 
20 20 48 42 43,41 “ASCII \A Bu \ 
} A “BYTE 5 
1 “BYTE -127 
20 20 4C 42 “3 1 : ASCII \Aceh \ 
“BYTE g 
1 ; “BYTE 33 
20 20 57 42 43 41 "ASCII \ACBW \ 
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4 44 41 A “ASCII \ADDB2 \ ; 
a 80 WORD a 6 ; 
oe i a : 

20 33 42 44 44,44 , “ASCII \ap083 \ 
“BYTE 3 

a a 

20 32 44 44 444) ASCII yappp2 % ; 
o 16 -BYTE 3 : 

20 33 44 44 448 i: ASCII \ADDD3 \ 
03 5 “BYTE : ; 

6 1 “BYTE 6 *“ ; 

ee ee "WORD. 16586 
8 are : 

4 44 41 “ASCII \ADDE3 \ : 

7 as 410 “WORD 16640 ; 
3 BYE 8 

4 41 ASCII SADDG2 \ : 

"om 40F ORD 1668 ; 
4 a : 

44 41 “ASCII \ADDG3 \ : 

eel Rca ivan iF “sORD 1689 ; 
~3YTE ; : 

BYTE ° 

20 32 48 44 444 “ASCII \ADDH2 \ ; 
ie : 

4 46 “ASCII \ADDH3 \ ; 

si ecelnandins 61 WORD apes : 
20 32 4C 46 44. “ASCII \app2 \ ; 
“BYTE : : 

“BYTE ; 

20 33 4C 44 “4 ASCII NAD0L3 \ ; 
“BYT ; 

“ASCII =\ADDP4 \ 

oa ne 44.000 “WORD 8190 : 
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vi 1erSeen13Re 99:48:87 HONEA Ski gsese Vhe0-248 aeet E 
1 -BYT -32 : 
20 20 43 $3 42 5S Soi mist \BBs¢ : 
E40 001 "WORD : 
1 eBYTE 5 $ 
20 20 53 53 42 1 “ASCII \BBSS. \ : 
E28 1 eWORD <= 3 
oe : 
20 49 53 53 42 F i? “ASCII \BBSSI \ ; 
£600 001 “WORD -6656 : 
; “BYTE 5 ; 
9 001 “BYTE =32 : 
20 20 20 43 43 i “ASCII \BCC ; 
1€ 18¢ "WORD 76 : 
4 001 “BYTE : 
18F "BYTE 0 : 
20 20 20 53 43 42 001 “ASCII \acs \ : 
1F 196 “WORD «7936 : 
4 0019 “BYTE : 
199 “BYTE : 
20 20 4C 51 45 42 OO19A "ASCII \BEQL \ : 
1300 OO1A “WORD 4864 : 
0% 901A "BYTE : 
1A -BYTE 0O : 
20 55 &4C 51 45 42 O01A6 "ASCII \BEQLU \ : 
13 1AA “WORD 4864 : 
4 OO1AC “BYTE 4 : 
1AD -BYTE 0O 3 
20 20 51 45 47 42 OIA "ASCII \BGEQ \ : 
18 1 “WORD 6146 : 
4 00186 "BYTE : 
1B "BYTE 0 : 
20 55 51 45 47 188 “ASCII \BGEQU \ : 
1609 9918E "WORD 76 : 
4 O01c "BYTE : 
1C1 "BYTE 0 : 
20 20 52 54 47 1¢ “ASCII GTR \ : 
14 ie "WORD 5120 : 
4 OOICA "BYTE : 
1CB "BYTE 0 : 
20 55 52 54 47 42 O01C “ASCII \BGTRU \ : 
1A 1D "WORD 6656 : 
4 001 “BYTE & : 
20 32 42 43 49 ib ein \ : 
BA08 OOIbE ‘done. | <84583 
1DE “BYTE : 
20 33 42 43 49 ib eter \ ; 
8806 OOlE one. | $BbSe3 
if BYE 3 
20 32 4C 43 49 1€A etal BIEL? \ : 
CA iF "WORD : 
1F BYTE § 3 
iF "BYTE : 
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£9 «WORD -5888 
BYTE 2 
20 20 53 42 4¢ A “ASCII \BLBS \ 
8 SWORD =6144 
eB & 
20 20 51 45 4¢ 4 “ASCII \GLEQ 
15 9A SWORD 5376 
je ETE 
20 55 51 45 4¢ <3 9 “ASCII \BL Eau \ 
18 A «WORD 6 
6 805A ‘BYTE. 6 
20 20 53 53 4¢ <3 AB “ASCII \BLSS \ 
190 af «WORD 6400 
86 9051 ‘BYTE. 6 
20 55 53 53 4 <3 0 82 “ASCII \BLSSU \ 
1F00 0028: [WORD 7936 
86 90588 ‘BYTE 0 
20 20 51 45 4€ 9 0 BC “ASCII \BNEQ \ 
1200 002¢ SWORD 4608 
04 02¢4 “BYTE 4 
02¢5 ‘BYTE 0 
20 55 51 45 4E 42 00206 “ASCII \BNEQU \ 
120 O2CC » WORD 460 
04 O2CcE “BYTE 4 
O2CF ‘BYTE 0 
20 20 20 54 50 42 00200 “ASCII \BPT \ 
0300 00206 SWORD 768 
6 0208 “BYTE 6 
0 09 “BYTE 
20 20 20 42 52 4 DA “ASCII \gR \ 
110 0 £0 SWORD 435 
Ba ES BYTE 4 
0 E “BYTE 0 
20 20 20 57 52 4 £4 “ASCII \BRuY \ 
31 O2EA “WORD 12544 
4 EC “BYTE 4 
1 ED “BYTE 1 
20 20 42 42 53 é EE “ASCII \ BB \ 
1 F - WORD 4096 
vs Fg “BYTE 4 
20 20 57 42 53 as aust 4 Ww \ 
30 F SWORD 13588 
“BYTE 4 
j “BYTE 1 
20 20 4¢ 47 55 “ASCII \BugL \ 
FOFF “WORD = 
A -BYTE 9 
20 20 57 47 55 “ASCIL \BUGW \ 
FER 00818 34 
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vi ~$007 1382 99:96:89 DEBUG. SRCIOBGENC DES .039s1 
A .BYTE 5 
20 20 47 $2 4¢ 4 Ne But RG \ 
7¢ WORD YH 
iB BYTE 
20 20 48 52 4¢ A “ASCII Lay \ 
7CF 8 WORD 97 
p B BYTE 
20 20 4¢ 52 4¢ B86 “ASCII \ELRL \ 
D4 BC “WORD = = 11264 
oF ‘Bye 
20 20 4F 52 4¢ ¢ “ASCII \CLR \ 
7CFD C “WORD 3199 
oc a 
20 20 51 52 4¢ rf CA “ASCII \cLRa \ 
7¢00 SWORD 31744 
+ O03p ‘BYE. 3 
20 20 57 S52 4C 4 ny “ASCII \cuRy \ 
B400 DA “WORD © = 19456 
1 es AE 
20 20 42 50 4D 3 DE “ASCII \cHPe \ 
91 E4 “WORD = 28416 
fo OB 3 
20 33 43 SO 4D 4 £8 ‘ASCII \CMPC3 \ 
2900 3 “WORD 10496 
a a 
20 35 43 50 4D e° re “ASCII \CHPCS \ 
2000 F “WORD 1152 
pe RHE 
20 20 44 50 4D 4 # “ASCII SCHED \ 
71 WORD 92 
5 BYTE ; 
20 20 46 50 4D. 43 00 “ASCII \CMPF \ 
5100 0040¢ “WORD 736 
DOLOF BYTE 
20 20 47 50 4D 1041 “ASCII \cmpg \ 
S1FD 0041 “WORD 2098 
oe 
20 20 48 50 4D DOGIA “ASCII \CMPH \ 
71FO 00 “WORD 181 
i Ht ave 
20 20 4¢ 50 4D D6 mish \¢ , \ 
D100 040A "WORD = 12032 
D040C “BYTE : 
¢ “BYTE 
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20 57 48 564 6 
“WO 3 133 
BYTE -127 
20 42 4C 54 5 
“WORD = 256 
BYTE 2 
20 44 4C 54 i “ASCII \ yILD \ 
WORD 16 
95 BYTE ( 
20 46 4C 56 9 “ASCII \cyTLF \ 
9C “WORD 1996 
oF BYTE $ 
20 47 4C 54 05A0 “ASCII \CVTLG \ 
OC “WORD 2 
DOS ‘BYTE 9 
20 468 4C 564 DOSAA “ASCII \CyTLA \ 
DC “WORD 2841 
5088 ‘BYTE £0 
20 50 4C 54 DC “ASCII \EVILP \ 
058A “WORD = -179 
50380 ‘BYTE. 44 
20 57 4C 564 D6 BE “ASCII \cytbu \ 
005¢ “WORD = 2304 
Eta ‘BYTE 83 
20 4C 50 54 05¢8 “ASCII \CVTPL \ 
D05¢ “WORD 13824 
BRE 
20 53 50 54 05D “ASCII \CVIPS \ 
050 “WORD ; 8 
D05DA “BYTE 
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20 47 S57 54 56 4 


20 56 50 54 56 iS td atte Severn \ ; 
a Bie ; 
4c 46 52 54 56 6 6 Br \EVTRDLA ; 
68 EC “WORD ‘es 
4C 46 52 54 56 if ASCII XEVTRFL : 
“Sey a pe ; 
¢ ‘BYTE 82 : 
wc 47 52 56 56 FA “ASCII \EVTRGL\ 
: BYTE 914 ; 
4C 48 52 54 56 4 ASCH \CVTRHL\ F 
a A : 
20 50 53 56 56 ASCII \vTsP \ : 
a : 
20 50 54 54 56 8 906I8 ASHI \eyrtP \ : 
me a Ye : 
20 42 57 56 5648 2 RECHT \CVTWe \ 
"9 A BYTE ag : 
20 46 57 Sh 56 i +4 ASCII Xe Tw \ : 
8g me gs : 
20 46 57 54 56 4 ASCII Xevtyr \ : 
. 19712 ; 
4DF at) 965 ; 

; ave 4, 4 

20 48 57 56 564 S34 jr 
20 4C 57 54 56 YT Sevrwe \ 
32 “WORD ja 

20 20 42 43 45 4 mite \Bece \ 
a une - 0 é 

:BYT ; 
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tty - 1 ~$00n 138% 90:98;83 DEBUG. SRCIOBGENC DEC .039s1 
20 20 4¢ 43 45 oft ASCII \DECL \ 
3 “BYTE 
20 20 57 43 “59 f ASCII ecu \ 
i ft ae 
1 BYT 
20 32 42 56 495 4 ASCII \p1ye2 \ 
§ aie 8 
20 33 42 56 “. 6 “ABELL \p1yg3 \ 
0 E BYTE ; 
F BYTE 
20 32 44 56 49,44 ASCII \p1yp2 \ 
6 33 “BYTE é 
“BYTE 
20 33 44 56 49,04 9A “ASCII \DLVDS \ 
a3 ng “BYTE § 
6 A “BYTE 6 
20 32 46 56 49) As M ASCII \p1yee \ 
a2 ene “BYTE : 
AD ‘BYTE 
20 33 46 56 49, 144 AE ASCII \pives \ 
03 BG “BYTE ; 
B “BYTE 
20 32 47 56 49 44 B8 “ASCII \piyg2 \ 
08 cb BYTE : 
¢ “BYTE 
20 33 47 56 49, 44 4 ASCII \p1yg3 \ 
5 BCA “BYTE 3 
p hd cB BYTE 
20 32 48 56 49, 44 bp ASCII \D1yH2 \ 
“BYTE ; 
. >? bYTE 
20 33 48 56 49,06 06 ASCII \DIYHS \ 
SDE “BYTE ; 
20 32 4C 56 49) se ASCII \pdyt \ 
bE “BYTE 3 
2S E BYTE 
20 33 4C 56 49.9 SEA ASCII NOYES \ 
i “BYTE ; 
20 20 50 56 49 bF “ASCIZ \DIVP \ 
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27 9 FA . WORD 84 : 

4 BE 2 ; 

20 32 57 56 49 f f ASCII \B wa \ : 
A6 «WORD 2504 : 

20 33 57 56 49 44 ASCII \BIYUS \ : 
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10AB 
03 02 1C 18 08 OA 1A 09 08 O07 06 Boat DATA, 


DBGENGDEC 


1}-s00-1984 09:26: 

02 10€8 BYT 
1 ED “ABEL 

10EE ASC 

02 1 34 -BYT 
1 ASCII 
10F ASCII 

02 10F BYTE 
10F ASCII 
4 1 Fg ASCII 

02 10F BYTE 
F O10 CARCI 
02 00 O10FB BYTE 
fF 10FD ASCII 
£ 10FE ASCII 

02 10FF BYTE 
3 11h) CARCI 
02 38 11 BYTE 
44 11 ASCII 
11 ASCII 

11 BYTE 
44 41 $1 11 P.AAC: .ASCII 
43° 41 1 110C P.AAD: .ASCII 
C 1110 P.AAE: .ASCII 


-PSECT 
00000 OP_BUFFER: 
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<3>\!AC\ 
\,\ 
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OPERAND VALUE= 
REGISTER _NAME= 


SEXTRN 
.PSECT 
0000 00000 DECODE_HANDLER: 


er ee ee 


OP BUFFER 
P.AAB 
PCAC 


AAE 

passes RADIX. DBGSCONV_TEXT_VALUE 

DBGSCOVER DX 

DBESPRINT “Dagens VALUE 

POC SNEUE IRE NaUSPOP~TEMPMEN 
APMER 


DBG SE“EXPRE 
Hope ttl 10 ~VAL 
SYS 

DBGSCODE.NOWRT, SHR, PIC,0 


boxe neshin 
tiko* opd35 


Page 41 
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$0800 


vOe=008 EHtec18R QO:RESST YAEL. S4SgabEtGeE ZG, Page 4 
at ROVE ENABLE_ARGS, AI ? 0801 

i asf : : iia Oa sg 

a eae ts oo 

000000006 90 05 rs : EAL M2. SYSSUNVIND 

yi 9 2s: MOVE #1, RO 0806 


3; Routine Size: 52 bytes, Routine Base: DBGSCODE + 0000 


; 685 a08 

: ty sf ENABLE Decode_Handler(Signal_flag,Error_Value); 
688 11 Signal Flag = .Print_Flag; 

3; 6689 12 Error_Value = .Start_Address + 1; 
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'e¢ $ 
do we have an entry mask } 


if ar ActualCount() GTR 2 THEN .Entry_Flag ELSE DBGS$Is_It_Entry(.Start _Address)) 


Error_Value = .Error_Value + 1; 
Fetch. nstruct ion (Pointer, context wu); 
IF .Print_Flag T 


LOCAL Delimiter,Mask_Bits; 

Mask Bits = .Operand_Value<0,12,0>+( .Operand_Value<12,4,0>)*16; 
DBGSPrint(UPLIT BYTE (ZASCIC ‘entry mask “M')); 

Delimiter = %C'<'; 


IF .Mask_Bits EQL 0 THEN DBGSPrint(Format_AD,1 bol faicer? ELSE 
INCR Index FROM 0 TO 19 DO IF .Mask_Bits<.index,1,0> THEN 


DBGSPrint(Format_AD,1,Delimiter); 
DBG$Pr int (Format. AC ;Register_ Name. Index); 
Delimi ter = XC‘, 


DBGSPrint(Format_AD,1,UPLIT BYTE('>")); 
IF “per end. Value<12,2,0> NEQ 0 THEN 
GIN 


DBGSNewLine(); 
SIGNA GNAL (dbg$. entrymask); 
END; 
END 
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! Not an entry mask = decode actual instruction 


Opec 
Opcode- Inde 
Det tatt sentry" : REF BLOCKC10,BYTE) FIELD(Opcode_Entry_Fields), 
Fetch Instruction aie e gentont bu); 


0 code! In ace ; riscso pede kind _lablel.Opcoded; 
Opcode, Index EOL” 65 TREN 


IF 20 fade GEQU ZX°FD") THEN 
retch Anotruct len (Painter comsogt bu) 
((T.Opcode EQLU ZX'FD'S A (Op Buffer u.byte] LSSU %XxX'FD')) 
iC Opeode EQLU aKrRe 3 AND (.0p_Bufferlu_byte] GEQU %x'FD'))) 
Opcode_Index = .DBGSOpcode_Kind_Tablel.Op_Buf ferlu_byteJ+%x'100'); 


ND; 
Fig, tOteee inten EQL 0) THEN SIGNAL(dbg$_noinstran,1,.Start_Address); 


Opcode_Entry = DBGSOpcode_Name_Tablel .Opcode_Index,offsetd; 


IF .Print -F lag, THEN DBGS$Print (Format_AD,.6,0pcode_Entrylop_name)); 
Delimiter = 2%C° '; 
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Nn 5 
Ve-$ep-1986 testes) EeauG. eRe SDB 
State = .Opcode_Entrylop_kind); 


esi NEQ simple_O_operand) DO 


N 
grrint flag, ! THEN DBGS$Print(Format_AD,1,Delimiter); 
ett miter” J 


CASE gyrete FROM simple_l_operand TO maximum_state OF 


simple_1l_operand, 
simple_2_operand 
sinple 2 “operands: 


Fetch -Operand (Pointer, .Opcode_ EntryCop_type_one],.Print_Flag,0); 
Stat te = State - 1; 


Coranch 0. operand): 
Fetch PEE Haale erent Yl EntrylCop_type_one)); 


W « er 
av he, Operand_Value + .Pointer); 
ext TLOOP 


Cprench.} operand, 
branch =operand, 
branch, $“operand): 


peels -Operand (Pointer, .Opcode _Entrylop_type_two],.Print_Flag.0); 
Sta tater = .State - 1; 
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Be Se Ge Se Se Se Se Ge Ge Se Se Se Se Se SO Se Se Se Ss Ge Se Se Se SF Ss Ge Ge Se Se Se Se Se Se Se Sees 


POROPONPOPTY 


6 
18-se 1984 00:24:49 AX-11 Bliss-32 V4.0-74 
1 ~$007 1382 99:90:83 DEBUG. SRCIDBGENCDE 04951 
Cconvert_datatype, 
eeeee evaluate_address, 
eter S mote.b fs ield, 
eeene routine dispatch, 
tenet polynomTal_value, 
aenee probe wy soceeee 
strin operands: 
BEGIN 


Fetch Operand(Pointer, .Opcode_Entrylop_type_twoJ],.Print_Flag,0); 
paste = Simple {Operands a, . 


Cotring 4 operand): 
Fetch_Operand(Pointer, .Opcode_Entrylop_type_twoJ],.Print_Flag,0); 
state = Simple_2_Operand; 


Cstring_5_operand 
otr ios 6“operands: 
BEGIN 


Fetch _Operand(Pointer, .Opcode_Entrylop_type_two],.Print_Flag,0); 
DECR Fount FROM .State TO string_5_operand Bo 


N 
IF .Print_Flag THEN DBGS$Print(Format £0 | Be) Saiterts 


Fetch_Operand(Pointer,context_b,.Print_Flag,0); 


State = Simple_1_Operand; 
END; 


Ctrail ing operand): 
BEG! 


Fetch_Instruction(Pointer,.Opcode_Entrylop_type_one]); . 
ag SN THEN Print_Operandt.Opcode_EntryLop_type_oned); 


EC 1b-5e $ep-1984 00:24:49 AX-11 Bliss-32 V4.0 Pa 47 
void 733071882 98i9G:8? = HONadG Bae ssecentoer os. 1 9°16) 
Ccom Lex SHIFT: 

Fetch <Opgcond Pg toter ce context _b,-Print_Flag,0); 
State = Simple_2_Operand; 
END; 
Ccom ber gentoo: 
ay ergnetPetoter code_Entrylop_t 0}, -Print. Flag,0); 
IF .P pepe’? bees rinttFormat A on 5.1 be init _ 


Fetch_0 Opsfond PS x2 dgy a> Hy Entry Cin tues Print _Flag,0); 
gists | = Simple_5_Operand; 


C Lex CRC): 
"BEGIA 


Fetch ete oy context_b,.Print_Fla 
brine N DBG SPrine(rormat _AB,1 Bet tater); 


SESERSES 


SDP DDSI ES BS BSUS B® SB SP SUTTON SE BP SP UIIUTIUION SE? SUTIN 


IF .Pr 

Fetch h.gperendta Pointer r acontent L,.Print ri Lag. 0) 

IF on, nttFormat_AD,1 el initer); 
B30 Fetc "4 Rapperend pLHEN 06 context_t,.Print_ Fl lag,0) 
i pf 
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WN —OOOn 


Fetch rye Plog THEN’ D context_l,.Print Ftag.0) 
nt_Fla DBGSPrint Format WAB éliniter); 

+ tee _Operand 4° ghee rot tan L,.Print *9- 
-Print_Fla N DBGS Print (Format AP aL initer); 
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WN —OOONAUSWN —“OVOONAULSWN—O 


ch_Operand Pointer pre thew L,.Print 199.0) 
-Print_Fla N DBG$PrinttFormat _AB,1 el initer); 
it noperena Rid, context_q,.Print_ Fl lag,0) 


eo 
zxeo ren 


SSSSSS33333ss 
SESS 5> 


86 1 
864 ; 
5 Ccom Ae EDIV] 
985 etch Bee Poa THEN BB context L,.Print Ftag.0) 
F 6G$Pr netFormat_A AB al initer); 
etih-Qoerendtra Pointer context g..P rint ls nt 
3 F .Print Flog Te N DBG ttFormat_Ab ‘ élimiter); 
71 etch operand Pointer geen 
F .Print_Fla 


Bt bécgPr inet cena AB,1 el tniter); 
etch h operand RL, context_l,.Print 5,15 


Be Se Ge Se Ge Se Ge Ge Ge Ge Se Ge Se Ge Ge Se Ge Ge Ge Ge Ss Ge Fe Gs Ge Se Sse Se Ge Ge SF Se SF Se Se Se Se Ge SH SHS S5 Se Se SH Se es 


Ore ne ne ne ho Mmm Me “Te 
=x 
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Wn 
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SSLSSFANLS 
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DBE BBD DD ISIN PP DP ADEPT SUD DEPP DPSS VSS ISISISISISIOSIOI SE S™ S* SII OP UIE 


em ee me ee em em ee ee ed ed ed ed = = 8 od ed = 2 2 dd 2 
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Ww 

wm 

SWOONOULS WHO 


w 


compte 


iSoseoctape 09:94:49 
fg DERI: 
DECR 


gount FROM 5 TO 0 DO 
BEGIN 


cates ater fies ants context _l Prior 
Facer nt_Flag AND (.count NEG 0) 


Ex1TLO0F; 


Cconpies CASE): 
LOCAL 


Fetch On h,Opetand Pointer, abpe de_EntryLlop By tyPee spe], -Print. Flag.0); 
é 


nttForma 


e07833.1 Page 435 


aa 0); 
BGSPrint(Format_AD,1,Delimiter); 


The number of displacements 


fetch FAnt Flag, THEN 0668 -Opcode_Entry 3p type. sored; cPrint _Flag,0); 


IF .Print_Flag THEN DOGS$PrinttFormat mn) 


'o4¢ 
Fetch the Limit 


fetch -Operand (Pointer, .Opcode_Entrylop_type_one], .Print_ F Lac 


'oe 
_Get the Limit in of the appropriste length 


(inte = | haa -Opcode_Entry£ Op_type_one J] OF 


context -b): On. buffer{u_byte); 
context_w p_buffer(u_word); 
Ope “buf ferCu_ long]; 


context_ “{3: 
TES); 


ca Print Flag 
gn Otter = .Pointer+2*(.Limit+1) 


BEGIN 

LOCAL start; 

start = .Poin 

DECR count FROM ‘Limit TO 0 DO 
BEGIN 


BIND 
CAS E Offset = Op. bufferCu_word] : 

SABORT En CONTR 

Fetch_In Seuce tanehuineee. context_w); 


DBGSNewLine(); 
DBGSPrint (format AD,2,UPLIT BYTE’ 


Delimiter) 


print, Address(.CASE Offset + .Start); 


00); 


What is the operand length? 


Convert the word to si 
Its ok the “Y out of the ca 


Print the address 


: ASHP didn't fit an 


voe=000 


oa. Peg SMiC ALS uae i 
: : 3 Mey aur A ed ibe rao ata ve OY Flag.0); 
3 is HE chan ag, Hen OOGRBIneCort La  eieons | 
37 : etch 0 ope a ointer, .Opcode_Entrylop_type_oneJ,. Flag,0); 
: 9% } 2 ENDS : 
; $4 i 4 nee, BE. “SRRGR C BBGSENCode Decode = bad opcode table entry'); 

: 3c9 : END; 

ace : 5 END; ; 

: get oes 3b a -Pointer; 
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«PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


4D SE 20 68 73 61 6D 20 79 72 74 GE 65 ° <p hentry mask “M\ 
A 


1111 
111F 
11 <9><9> 
63 65 46 SF 65 64 6F 63 6E 45 $e 47 11 \*DBGSEncode_Decode - bad opcode table en\ 
64 6F 63 70 6F 20 64 61 62 20 2d 20 Hs $4 6F 011 
6— 65 20 65 6C 62 61 f 0 be 


eASCII \try\ 
CASE _OFFSET= OP _BUF FER 

-EXTRN DBGSGV_CONTROL 
«PSECT DBGSCODE.NOWRT, SHR, PIC,0 


OFFC 00000 ENTRY DBGSINS,D _ Save R2,R3.R4,R5.R6.R7.RB,- ; 0785 
B 000000006 00 9€ MOVAB PTBSSTGNAL, R : 
A y CE 9 ROVAB FETCH OPERAND, R10 ; 
8 G 60 9 ROVAB DBESPRIAY "A ; 
: AE eS Oot AT i 
oc Ae f 100 CLRG ERROR VALUE ; 0786 
gp O4Ai CF DE 000 MOVAL 72$, TEP ; 
6 08 AC DO 000 MOVL PRINT FLAG, R6 > 0811 
10 AE 56 D0 000 MOVL » SIGNAL FLAG : 
Oc AE 04 AC C1 00C ADDL3 START ADDRESS, ERROR_VALUE : 981 
8 Ac 06 AC 000 VL Stiat T ADDRESS. POINTER : 981 
: 8F 4B 00% SLEQU 
10 oc Ac 00 BLBS NTRY_FLAG, 28 ; 
008A 7 00 BRW : 
000000006 * Fr R040 18: ALLS #1 begets 11 ENTRY ; 
D % 4 00 BLBC b: 8 : 
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0c D6 OO0SA 2S: NCL  ERROR_VALUE 1 
D SHL 2 
0c PUSHAB POINTER 
0000v CF CALLS #2, ETCH INSTRUCTION 
A BLB R6, 3 
50 01 A 4 EXTZV #4. 6 OPERAND_VALUE+1 , RO 
‘ 5 0 ASHE #é, Rg, R 
53 6 : EXT #0, #12, OPERAND. VALUE , MASK_8I1TS 
ADDL2 RO, MASK_BITS 
" 09 PUS F 0829 
E 


8835 


PUS R7 
CALLS oe DBGSPRINT 


BRB 
$: CLRL INDEX 0834 
$: BBC INDEX, MASK_BITS, 5$ 
PUSHL SP 0836 
PUSHL #1 
PUSHL 


0 

Hf 

68 : 

16 53 ? 
; 


R7 
#3, DBGSPRINT 

PUSHAL REGISTER_NAMECINDEX) 
FORMAT A 


DBWOWUNG 8 $ ONG 9 OVNI NOS NITION $$ TI 99 “GCI TNOOM THM NOG 
RO $B 9S DUIWD SS WO 27D 9 $F $DOCONMo@ VO "00M" 


at 4 mas - 
68 2 CALLS ae DBGSPRINT 
6 MOVL #44, DELIMITER 8 
E2 5$: AOBLEQ #19. INDEX, 4$ o8 
17 =A és: PUS P.AAG 841 
wet th 
68 0 CALLS #3, DBGSPRINT 
01 i g1T8 QPERAND_VALUE+1, #48 0843 
000000006 00 CALLS @ SNEWL INE 5 
00028FA3 oF PUSHL @# &7eed Obea 
68 1 CALLS #1, LIBSSIGNAL 
O3F 7$: BRW 71§ 0818 
oc 10009 et PUSHAB INTER . 
0000v ; FB CAL 5 i. FETCH INSTRUCTION 
3 FB9B C74 ROVZUL BOPCODE_KIND. TABLECOPCODE), OPCODE_INDEX ea 
000000FD 8F 5 b CMPL OPCODE. #253 Ree 
F BLSSU 
0c 44 P PS HAB INTER as 
00003300" cr ; F CALLS 4 FETCH JNSTRUCTION 
FD «8 a Cope, #2 0867 
FD s«SF CMPB op BUFFER, #253 
f : BLSSu 108 
QOOOOOFF BF 1 98: CMPL OPCODE, #255 0868 
F 12 BNE 1 


voe=000.” 


16 
004A 3 
007C 
A E 
F3 
0171 1 
02F4 


FD 


04 


&F 9 
8 sos f 
ao # 
000281¢8 4 

i EEFS C7 ; 
2 ; 
bow § 
nee ae 
P 
toa 
$ 

i 


NO 
N&emMoom 
oooooeo 
MMrOSCSoSoSO 


1A a 
00028362 i 
68 


6 


ieee: 
t Sott 
i 108: 
0§ 118: 
dD & 
0D 1») 
00 Ff 
i 
§ 128: 
5 
00 44 
DD 00146 
Bis 
06 D 13$: 
3 ; 14$: 
SF 0018¢ 
DD F 
Pe poles 
D0 66 15$: 
CF 6A 
$f 16$ 
7E 
86 
8E 
96 
oF 13¢ 17$: 
DD 0019F 
0D 1A) 
4 a 
1 1AA 
D4 OOIAC 18% 


126: AX-11 Bliss-32 V4.0-7 P 
19he $3:96:8) HOSS She ssezew ter oss. age 43 
BUFFER, #253 
ie a "s : 
v oP BUEFER R : 
MOVZWL DBGSOPCODE KIND_TABLE+512(ROJ, OPCODE_INDEX ; 
Ist PCODE_INDEX : 
PUSHL  START_ADDRESS : 
PUSHL #1 : 
PUSH #164296 3 
CALLS # L1BSS1GNAL : 
MULL2 #106, R : 
BOVAB GSOPCODE_NAME_TABLECR2], OPCODE_ENTRY : 
PUSHL  OPCODE_ENTRY : 
PUSHL @# : 
PUSHL R : 
CALLS #3, DBGSPRINT : 
MOVL DELIMITER : 
MOVZBL 8 (OPCODE_ENTRY), STATE : 
TSTL TATE : 
BEQL $ 
PUSHAB DELIMITER : 
PUSHL @# 3 
PUSHL Re : 
CALLS #3, DBGSPRINT : 
MOVL #44, DELIMITER : 
CASEL state #1, #22 : 
~ WORD $-16$,- : 
18$-16$.- : 
1 $-168.- : 
19$-16$,- : 
1$-16$.- ; 
is-168.- 
3371832 3 
1$-16$.- : 
3$-16$,- : 
4$-16$.- : 
$-16$.- : 
$-16$.- : 
$-16$.- ; 
7$-16$.- : 
$-1 $;- F 
-16$,- 3 
$-16$.- : 
4$-16$.- : 
$-16$.- 
378 $,- 
“183 
puss Git 
PUSHL #164706 
CALLS ’ § LIBSSIGNAL : 
CLRL 0s = ( SP) + 0892 
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D 001 PUSHL R : 
7E 09 AG 04 : FF F fra. : #4, YCOPCODE_ENTRY), =(SP) : 
7E 09 AG 04 gf 188 198: XTZV #4, SCOPCODE_ENTRY), =(SP) : 

Oc AE SF 0018 PUSHAB NTER : 

0000v i Q FB iC CALLS #2, FETCH_INSTRUCTION ; 

7E 9 08 AE Ci O01C ADDL3 fy Pal OPERAND_VALUE, -(SP) : 

0000v CF al fe 1¢ CALLS PRINT_ADDRESS : 

D4 1p 30s CLR a : 

7E 09 AG 04 FF 1DA EXTZV ae #4, Q(OPCODE_ENTRY), =(SP) : 
14 AF F 169 228 PUSHAB POINTER : 

6A Fe 1E CALLS #4, FETCH OPERAND ; 

i p 166 DECL TATE : 

1 OO1E BRB 0§ : 

: D4 OOIEA 238:  CLRL =(SP) : 

; DD OO1EC PUSHL ; 

7E 09 Ab 04 4 gf 1EE EXTZV. #4, #4, 9(OPCODE_ENTRY), =(SP) : 
16 AE SF 001F4 PUSHAB POINTE ; 

6A 04 Fe 1F7 CALLS #4, FETCH_OPERAND : 

41 11 OO1FA BRB 9$ : 

ze D4 iF 24$: cLRL =(SP) : 

7E 09 «AG 04 ff EXTZV t, #4, QCOPCODE_ENTRY), -(SP) : 
E D4 25$: CLRL =(SP) ; 

36 0D A PUSHL R6 ; 

7E 09 A 04 - 04 F EXTZV. a #4, 9(OPCODE_ENTRY), (SP) : 
6A 04 F 1 CALLS #4, FETCH_OPERAND ; 

4 2 p 1 MOVL state. COONT : 

18 1B BRB 8$ 3 

OA 56 £9 00210 26$ BLBC =—-R6, 27S ; 

06 AE OF PUSHAB DELIMITER : 

} 00 PUSHL @# 3 

00 PUSHL R7 3 

68 3 F CALLS #3, DBGSPRINT : 

: D A27$: CLRL -<(§P) : 

3 DD C PUSHL R ; 

E 04 CLRL. = (SP) : 

16 AE OOF PUSHAB POINTER F 

6A F CALLS #4, FETCH_OPERAND : 

D DECL COUNT : 

0c p 288: CMPL T, #12 F 

BGEO ; 

52 p it ROVL STATE ; 

7E 09 A4 04 F 0024 : EXTZV. #0, #4, 9(OPCODE_ENTRY), -(SP) : 
OC AE SF 0024 PUSHAB NT ; 

0000v fb rs 4 CALLS 8 ae. sh INSTRUCTION ; 

7E 09 «Ab EF ete #0. cop CORE ENTRY), -(SP) : 
0000v CF Fe CALLS @ PRINT ERAND ; 

0268 BRW 71§ ; 

E 04 00261 328: CLRL (SP) ; 
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PUSHL af 
LAL a 
33$: SHAB 
6A A CALLS “t ETc _OPERAND 
. Bee’ fe: § 
348: CLR tn 
7E 09 Ad 04 EXTZV, #4, QCOPCODE_£.-TRY), -(SP) 
A CALLS ICH. OPERAND 
A BLBC 
PUSHAB BeCini TER 
PUSHL 
68 CAs of ; DBGSPRINT 
F 358: cURL at 
7E 09 AG 04 EXTZV. #4, #4, Q(OPCODE_ENTRY), =(SP) 
PUSHAB N 
A CALLS ay FETCH_OPERAND 
2 MOVL #3. STATE 


ng 308: th Up) 
PU R6 


SHL 
CLRL -(SP) 
PUSHAB POINTER 
6A CALLS #4, FETCH_OPERAND 
A BLBC . 
S DELIMITER 
PUSHL # 
PUSHL R7 
68 CALLS a DBGSPRINT 
CLAL -(SP) 
PUSHL R 
PUSHL 
PUSHAB POINT 


gnats +e cereM OPERAND 
PUSHAB = 


68 DBGSPRINT 


39$: CLAL . ($p) 
1 


& 
BRB =(Sp 
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D4 841$: CLRL <=(SP) ; 

0D PUSHL Rg : 

BD PUSHL # : 

A — = - PLS” #hL FETCH. OPERAND : 
8h 7 3 BL E R6, “ : 
06 AE OF PUSHAB DELIMITER : 

00 PUSHL @# : 

68 $ fp Pee Ee pscspRINT : 
fe 428: CLAL -<(§P) : 

3 0D PUSHL : 

bb PUSHL # : 

16 AE OF PUSHAB POINTER : 

6A Q Fe CALLS #4, FG TCH_OPERAND : 
A 6 BLEC =._—«RG,_ 43S : 
04 AF F PUSHAB DELIMITER : 

DD PUSHL @ : 

7 OD PUSHL 7 : 

68 3 FB CALLS #3, DBGSPRINT ; 
D4 A438: CLRL -<(§P) : 

DD SHL : 

DD 0 PUSHL # : 

1 11 44$: BRB 49$ : 

D4 45$: CLRL =(SP) ; 

; DD PUSHL R : 

D PUSHL # : 

16 AE OOF PUSHAB POINTER : 

6A 4 FB CALLS #4, FETCH_OPERAND : 
OA 4 E BLBC M : 
04 AE F PUSHAB DELIMITER : 

DD PUSHL @# : 

7 OO PUSHL R7 3 

68 3 FB CALLS #3, DBGSPRINT : 
E D4 46$: CLRL -<(§P) : 

33 0D PUSHL 3 

] PUSHL @# 3 

16 AE OF 5 POINTER ; 

6A 4 FB CALLS #4, FETCH_OPERAND : 
OA 6 E LBC —saRG, 47S : 
04 AE F PUSHAB DELIMITER : 

DD PUSHL @# F 

68 PP Cee OS pecsPRINT 
D 47$: CLRL eee) : 

; DD PUSHL R : 

D PUSHL : 

16 AE OOF PUSHAB POINTER F 

6A FB CALLS #4, FETCH_OPERAND ; 
A 5 3 BLBC ; : 
06 AE OF PUS DELIMITER ; 

DD PUSHL @ 3 

1) PUSHL pi 3 

68 3 F CALLS #3, DBGSPRINT ; 
D 48$ CLAL. = §P) ; 

3 D PUSHL RS : 

D PUSHL @# ; 


bpeENcpec ifoseoct9ge 09:94: a UME Paae 55 


53 0138 op 30: BtvL owe. COUNT : 
D : CLRL He : $338 

DD PUSHL ; 

pp PUSHL ; 

16 AE OF : PUSHAB POINT : 

6A F CALLS a, Bo OPERAND : 
E : E BLEC 7 0999 

TSTL 3 

A A BEQL : 

04 AE OF c PUSHAB DELIMITER : 

DD F PUSHL @# : 

DD 003A PUSHL : 

68 ; Fe A CALLS #3, DBGSPRINT : 

E F 528 SOBGEQ T, 51$ : 

1 °#11 A BRB : 
7E 04 003AB 53S: CLRL (SP) 3 1008 

56 DD O03AD PUSHL R : 

53 09 Ab 04 p EF OOSAF EXTZV #0, #4, 9(OPCODE_ENTRY), R3 : 

Bp BS PUSHL : 

14 AF F 0038 PUSHAB POINTER ; 

6A Fe BA CALLS #4, FETCH_OPERAND : 
OA rs B BLEC—Os«RG, + 1009 

04 AF F 003¢ PUSHAB DELIMITER : 

DD 003¢ PUSHL @# F 

7 OD 003¢ PUSHL 7 : 

68 3 FB 003C CALLS #3, DBGSPRINT ; 
E D4 OO3CA 54$ CLAL. 0s = §P) : 1010 

00468 8F 8 ¢ PUSHR #*M<R3,R6> : 

146 AE OF PUSHAB POIN : 

6A 4 Fe D CALLS #4, FETCH_OPERAND : 
A 6 f 06 BLEC —Es«aRG, > 1011 

04 AF F 0030 PUSHAB DELIMITER ; 

DD 0030C PUSHL @# ; 

7 0D 0030 PUSHL RY ; 

68 3 Fe E CALLS #3, DBGSPRINT ; 
E £3 55$:  CLRL (SP + 1016 

0048 8F 6B E PUSHR #*M<R3,R6> 3 

14 AE OF OO3E PUSHAB POIN F 

6A F EC CALLS #4, FETCH OPERAND 3 
EF TSTL = RB + 1023 

FY BNEQ  56$ ; 

50 A 003F MOVZBL oP BUFFER, LIMIT ; 

11 Fé BRB ; 
01 1 003F8 56S: CMPL 3, #1 > 1024 

2 003FB BNEG =s5 : 

50 c F MOV ZML OP BUFFER, LIMIT : 
02 ; ot S78: CMPL 3, #2 > 1025 

BEQL 5 3 

50 ( MNEGL #1, LIMIT : 

A BRB 59$ ; 

50 D C 588: MOVL  OP_BUFFER, LIMIT ; 
C 5 fF 59$: BLBS R > 1030 

08 AE 08 BES : ROVAY @POINTERCLIMIT], POINTER : 

AE 0 ¢ 1 ADDL re POINTER ; 

1C 60$: BRB 65$ ; 


NCDEC bse ~1984 00:24:49 AX-11 Bliss-32 V4.0-74 Page 56 
ppee i nian MOreeiey — EAMale. Sheloacemtnes 645-1 ae 435 
AE 00 MOVL POINTER, START : 1034 
23 88 ‘i ROVAB 180), EouNT ; 1043 
09 000000006 00 £ 62$: BBC 7; $GV_CONTROL+1, 63$ + 1038 
oq, 0002808 bp FT ee ; 
oc AE OF on 6Rae a i 1040 
9000y cr 0 FB é CALLS és FET cH INSTRUCTION ; 
000000006 60 FB 0044 CALLS # DB GSNEUL INE + 1041 
18 AZ 9F 0044A PUSH + 1042 
DD 00440 PUSHL ; 
ss sR : 
00 8945 9F 4 PUSHAB Bae OFFSETESTART) + 1043 
0000v CF : Fe 8 CALLS PRINT A $ F 
(8 FA et SOBGEQ ns ; 1035 
fe ps 6$: CLR (SP) ; 1051 
7E 09 Ad 04 be fF EXTZV. #4, #4, 9COPCODE_ENTRY), -(SP) : 
16 AE OOF C PUSHAB POINTER : 
, 04 Fe F CALLS #4, FETCH_OPERAND £ seas 
04 AE OF he PUSHAB DELIMITER : 
1 DD PUSHL @ : 
68 § Pe bare Cet ee DBGSPRINT : 
D4 D047F 67S cLRL = (SP) ; 1053 
7E 09 «Ab 04 3 f EXTZV 8 #4, QCOPCODE_ENTRY), -(SP) : 
14 AE OF PUSHAB TER : 
A 4 Fe C CALLS #4, FETCH_OPERAND F 
A 6 . F BLEC 6, 68$ > 1054 
04 AF F PUSHAB DELIMITER : 
DD PUSHL # ; 
68 a eres) a : 
: pA 004 9¢ 68$: cURL -(§P) ; 1055 
7E 09 «Ab 04 me oe F i EXIZY aff 9(OPCODE_ENTRY), -(SP) ; 
6A f FB A CALLS #4, FETCH_OPERAND : 
A 6 3 AC BLEC —._ «RG, + 1056 
04 Ar F OO4AF PUSHAB DECIMITER : 
Be Fu : 
68 2 F 09 CALLS as DBGSPRINT : 
fe p4 B9 69S: cLRL =($P) 3 1057 
7 AG n ‘ EXTZV a4, 9(OPCODE_ENTRY), (SP) F 
eri » “BRB Bele Bint ros : 
0 08 AE C9 71$: ROVL POINT Hap : 1968 
0 CE 72$:  .WORD ve snoghin : 0 
50 08 ace DO O0cb8 hove BAP ° : 


easenspE AE$SO19RG QOGGS7 YASSER PO 
“eon j Heo | File Gets : 
He Oe EL 


7E 04 mova 
FAE1 CF 0 i, CALLS #3, PdEcove. PHANDLER 


; Routine Size: 1260 bytes, Routine Base: DBGSCODE + 0034 


Heiser 0:47 YASUE Bu 


GLOBA, POUT INE DBGSIns_Encode(Input Buffer Output _Buffer,Relocation) = 


SeEeSeS ER eTo are Se 


OO0000 
NNN 
Baun—o 
REeas 


oovno 
aN 


Soy 
Sse 
oo 


W000 000 0000000000 ee 
RERUN LSOSVSU PUNO SONOU EMIS OD 


Oo 


33 


MEEPS EE EF PWNS & FWHM NIUMIGPIPINININIPOAIPINIPIPIPIAIAIMUARININIPIPIPIPIPIPIPUPIPINUIPUNY 


SRETLS 


ee ee ce ee ee ee ce ce ce ce ee ce me ce ee ec me ce me ee ee me cD ce me ee ee ee ee ed ad ed od od dd ed ed od dd ed dd 


Be Se Se Ge So Se Se Se Se So Se Ss Ge Se Ge Ge Go Fs Se Ge Ge GF) Ge Ge Ge Ge Ss Ge Se Ge Se Se SF Se Se Se Ge SO Se Gu Se Se Se Se Se Se Se Se Ss Se Se SFSs Se SF Se Ge 


De ed ed ad ae ce me a nd a ad ed od ed ot od od Sh ht 


Ronn 2 2 oo tO 
OWOONAUE WII OOO 


pe EER EEE SS. 


ae oe DO OB DD 


MAP Input_Buffer : REF VECTOR (,BYTEJ, ! ZASCIC Strin 
Utput Buf tler CTOR f: BYTE: ! Encoded instruction 


Operand_number 
ncode 
Local Buffer 


Opcode_Entr 
State;” . 


FV 

: INITIA 

BLOCK is r sete, FIELD(Encode_Fields), 

: REF BLO 2bgY Bytes FIELD(Opcode_Entry_Fields), 


ncode[Enc_Input_Class dsc$k_ class_s; 
dsc$k =8typ 


= 
ncodeLEnc_Input_Dtype = 
: « 44 = .Input-Bu Hertha, 
EncodeLEnc_Input_ Buffer]. = ocal “Buffer 
encodes enc-Dutput ten er) = Output Bufferl1) 
ut-Bu = Outpu erCi); 
EncodelEnc_F nol Address] = Burput pu 


ch$move(.Input_Buffer(0), ing ut sbuftert) Local_Buffer(0J); 
Opcode_ Entry ="Opcode_ Name_ Tndéx (Encode Enc _Input_Desc Bc’ "); 


Opcode_Entry = DBGSOpcode_Name_Tablel .Opcode_Entry.offsetd; 
If .Opcode_EntryCop_code_one] NEQ 0 THEN 
Store_Operand(Encode,Opcode -Entryfop. code_one),1); 
Store_Operand(Encode,Opcode_entryLop_code_two *1): 

State = .Opcode_Entrylop_kind]; 

WELE f stete NEQ simple_O_operand) DO 


N 
CASE at FROM simple_l_operand TO maximum_state OF 


Csimple_1 ~operand, 
simple. ~operand, 
simples “operandd 


SaGsorcone™ “INDEX 


pares dperandcEncade,pcode EntryCop_type_one],Operand_number);! M007 


te"= .Sta 


Coranch_0_operand): 
BEGIN 


— Address, Length; 
number -Opera nd_number 
oth = Scan Operan (Enco apEnc slate. bese). ") 
iF T Parse_Expression(-1,.€ 
-Encode(Enc_In ue 73 th 


IF (Ch ck zea ee =ea 0 
Encode(E -{npu ot -Encod Lng Tn 
Encode Ene~ meat -pul fer} = ‘Encode nc “input” Length 


Length = .Data_Sizel .Opcode_Entrylop_type_one)); 
Address = .Address = (.Length + .EncodelEnc_F inal_Address] 


sAdgress) THEN tat ec INVEXPR,1,.Operand_number) ; 


+ Length; 


SIMA (bg ys INVEXPR .1..Operand— number); 
Length: 


AAAPOMANUNNUIUIUIUIS SELES LLLE 


oO 
AFAR IS Seen ew Ooo On Uwy 2O Deen WO OONO 


OCOOOCOOCCSCSCOSCOSCO OOOO SOOOOOOOOOOooo 
DN ye SBA 28 D8 ee ny ee eee 


io 


NOUS WIN OOO 


Sa SSSSF- 


BB eh ee ed eh a ed et mt ah at ek 8 at 8 I = 4 = es = ts i'n 8 8 4s bd 9 4 4 I 
ah ee me wee cee cen ee ee ed ed ee ed ed ed a td tS at od et 8 SS a 2nd ts SS ns SH SS ts Ss tt 
el a a a ed ee ed od dd ed td Sd 3 a 8 ss ot a 


$5. Wn 
o20000 


~ 


7 
-Sep-1 1246:49 AX-11 Bligs-32 V4.0-74 
16-00-1984 99:90:83 DEBUG. SRC SacencbEs.039;1 
+ .EncodelEnc_Output_Length]); 

store pperendcEncede Adéress, Length? ; 
END; ; 

Cbranch_1_operand, 

branch_¢_operand 

branch 3-operand): 
Parse_Operand (Encode, .Opcode_Entrylop_type_two],0perand_number);! M007 
State = .State - 1; 


Ceonyert datatype, 

! etene evaluate_address, 

! eeene simple_bTt_field, 

| eeeee routine dispatch, 

{ eeeee polynomTal_value, 

' eeene pro e.for.access 
strin Operands: 

BEGIN 


Parse_Operand(Encode, .Opcode_Entrylop_type_two],0perand_number);! M007 
A ge = Simple_1_Operand; 


ane ing 5 parents 


Parse_Operand (Encode, .Opcode_EntryLop. type. two),0perand_number); ! M007 
mace = Simple_2_Operand; 


Cstring_5_operand 
eerie 6“operand): 


parse, Operend<Encode, .Opcode tntrylop. type. tue) .Operand number); : M007 
DECR count FROM .State TO string_5_operand 

Parse_Operand(Encode,context_b,Operand_number) ; ! M007 
state = Simple_1_Operand; 


Cerait ing operand): 
BEG! 


: Store_Operand (Encode -Opcode_Entrylop. type one]); 
: IF .Print_Flag THEN brint_Operand -Opcode_Entrylop_type_one)); 
BE NUsOPs 


Ccomplex_ SHIFT): 
BEGIN 


Parse_Operand(Encode,context_b.Operand_number) ; ! "007 
grate = Simple_2_Operand; 


C lex_EMOD): 
comp EGIN 


Parse_Operand(Encode, .Opcode_Entry{lop_type_one) ,Qperand_number);! 7 
a tele bl ape ie secbe M ARU P EL ed Bf etdbely Sharer ot noo? 


PPE PWAAMAS FFAG & BF FWA BHF SWAB FB FWA BF FAWN F&F PANAMA FE 


— 


NOME WN 


& 


wr 


ah AB ak nd 8 8 8 nD PS 


ee ee ed aed ad dd COOCCO Oro 
ARI HOD NONE HOO NONE WOOO VON PO OD MO RUT ODO ON 


RIANA EB EEF PWIA BF BF PWM FE WWE BEEF FWA BEEF PWIA BFF PI 


Seess 
SS238 


SSZSZIZEIES 


ed at a at 8 dk ad td tt a 8 et ed a oS 8 2) 8 8 8 HS a 
a eh at 
— 


ooo 


cme me Be a me ee ee ee ee ed a wd ad etd ad = 9 8 8 3 I Ws 2 2 2 


ek et ed ed we ed ed ed ed ed dd et 
a a ek ad ed ed td = = = 2 I 


UNUSSarenrwnv—=SSeuTAe 


? 
16-5¢ =1984 00:26:49  VAX=11 BLiss-32 v4.0-74 p 0 
eae VAR ae eR Pg Et et a age 48 


State = Simple_3_Operand; 


Ccomplex_CRCI: 
Begin 


Parse_Operand(Encode,context_b,Operand_number) ; ' 
Parse_Operand(Encode,context_l,Operand_number) ; Hi 
Py wpeancieetaetensotaaeiasin en artiatate sme ! Mm 


Ccomp les EAULJ: 
Parse_Operand(Encode,context_l ,Operand_number); 
Parse_Operand(Encode,context_l,Operand_number); 
Parse_Operand(Encode,context_|,Operand_number) ; 
COLT Ty thegeerteetetamaitenccstains ce daalnatan guamanteai 


2322322 
Sooo 
oooo 
~anww 


Ccomplex_ EDIVI: 
BEGIN 


Parse_Operand(Encode,context_l,Operand_number) ; 
Parse_Operand(Encode,context_q,Operand_number) ; 
Parse_Operand(Encode,context_|,Operand_number) ; 
1 > thetmaeamereeiatactte ce ecattta tcmantatdain 


222 
ooo 


Rcompt ou JO@ERD: 
Pins FROM 5 TO 0 DO Parse_Operand(Encode,context_l,Operand_number);! M007 


Ccomplex_CASE): 
BEGIN 


Parse_Operand(Encode, .Opcode_Entrylop_type_one] ,Operand_number);! M007 
Parse_Operand(Encode, .Opcode_Entrylop_type_one],Operand_number);! M007 
Cor oe aaper ene ensee, Apcaee_Lmtry op_type_one] ,Operand_number);! M007 


Coonplex ASHP: 
Parse_Operand (Encode, .Opcode_Entry{lop_type_two -Operand_number); ! 
Parse_Operand(Encode, .Opcode_Entrylop_type_one] ,Operand_number) ; : 
Parse_Operand (Encode, .Opcode_EntryLop_type_two] ,Qperand_number) ; : 
pared super endsencade, .Upcede pntry op_type_one -Operand_number) : : 
EXITL 3 ; 
CINRANGE , OUTRANGE ): 
$DBG_ERROR( *DBGSEncode_Decode = bad opcode table entry"); 


TES; 
END; 


DBpeNcEC ibeseon 19g 00:24:49 YARGNY BL ins=sz V4eO-7ez Page, 


3: 1124 124 
: HE 3 ; out ut ree = .EncodeCEnc_Output_Length); 
11 § 134 END: 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
4 65 4 F 6F 63 6€ 4 : ASCII \*DBGS D - 
$ ro} o, $3 $% of ei es 2 3 I BGSEncode_Decode - bad opcode table en\ 


ASCII \try\ 


«PSECT DBGSCODE.NOWRT, SHR, PIC,0 


ENTRY DBGSINS_ ENCODE, Save R2,R3,R4,R5,R6,R7,RB.- ; 1069 
MOVAB STORE_OPERAND, R9 ; 
MOVAB LIBSSIGNAL, R : 
MOVAB beGSOPCODE *“NAME_TABLE, R7 : 
MOVAB PARSE_OPERAND, R6 : 
MOVAB -284(SP), SP ; 
CLRL OPERAND + 1070 
MOVW #270, ERCODE+2 + 1081 
MOVL INPUT BUFFER. RO + 1082 
MOVZBW (RO), F 
MOVAB LOCAL big ENCODE +4 + 1083 
CLAL EN NCODE 3 1084 
F8 OAD ADDL3 #1, T_BUFFER FNCODE+12 > 1085 
MOVL RE ‘ora TONT ENCODE+ : 1086 
08 AE MOVES’ Ri. {cRO), LOCAL BUFFER ae 
PUSHL as , : 1089 
PUSHAB ENCODE ; 
CALLS a, OPCODE_NAME_INDEX : 
MOVL 4 BORE “ENTRY ; 
50 RULL + gPCODE EN ENTRY, RO + 1091 
4 ADDL #16 ENT : 
TSTB {tie eee + 1093 
BEQL 3 
PUSHL + 1094 
PUSHAB SCOPCODE_ENTRY) : 
PUSHAB ENCODE F 
CALLS #3, STORE_OPERAND ; 
PUSHL @ > 1095 
PUSHAB 7(OPCODE_ENTRY) 3 
CALS. #3, STORE_OPERAND ; 
nOV ZBL S(OPCODE_ENTRY), STATE ; 1097 
TSTL TATE 31 
BNE : 
16 Pree, STATE. at. #22 : 1101 
0048 003F WORD alt ; 


na 
oo 


ifoseo 1964 00:24:49 YaNeHY OLige=Sz w4sO-7eg | age §2 


5 
eo 
| 


@oonmrun 


BOMMSFUMIMIMIVIOCOKRN — 
PAAMAMRMMMMM I 1 1 
@8e ee tees 
Sek dak nd ed ee ee de Me td ad te) 
ee 
feeeeseee se § 6 8 
eeeseeeveeuesn 


é ; 
Binis. : 
-4$.< : 
$-4§,- ; 
$-4$.- ; 
4$-4$,- 3 
0$-48,- : 
$-4$,- : 
$-4$.- : 
gts : 
114D C7 9F 00089 S$: s AAJ + 1236 
1 DD 0008D PUSHL #1 : 
00028362 8F DD 000BF PUSHL #164706 : 
68 03 f cs CALLS a3. LIBSSIGNAL ; 
04 AE 9F OOOCA 68: PUSHAB OPERAND_NUMBER : 11 
04 not f cp extzV #0 #4, 9(OPCODE_ENTRY), (SP) : ns 
04 AE 06 06 7$: INCL § OPERAND_NUMBER + 1115 
2€ DD 0000 PUSHL #44 : 1116 
EC AD 9F 000DB PUSHAB ENCODE : 
ce F of CALLS a. SCAN_OPERAND : 

. e b> O00E — oo 24117 
7E EC AD 3¢ EB MOVZWL ENCODE, -(SP) ; 1118 
et a eee Bs 

F O4 F Fe CALLS #4. PARSE_EXPRESSION : 

E 0 € F BLBS $ ; 

04 AE DD OOOFA PUSHL  OPERAND_NUMBER : 1118 
DD O00FD PUSHL #1 : 
gg 00028290 PB 0010 CATS BS. TSSSIGNAL 
é DD 88: PUSH ADDRESS : 1119 
CF F A CALLS #1, CHECK_REGISTER : 
eae : 
04 aE pm 0011 PUSHL  OPERAND_NUMBER F 
ot 0011 PUSHL @ : 
68 verted Pe i checs ; - 1BSSIGNAL ; 
AD ¢ i os. AODL2 LENGTH, ENCODE+4 $11 
04 FF 00189 ™ bevel FREI, ENTRY), RO Pi 
3 10A0 C7 BA F asa om ta_size ROT. LENGTH : 


7 


DBGENCBEC iSo$eect9ae (0:2439?  YAKSND Biase Wes 


50 2 Ff AD 135 ADDL NCODE+16, LENGTH, RO 
F 13a ADDL NCODE+8, R 
bE : 1 SUBL 9 ADDRESS 
1 PUSHL t NGTH 
06 A 14 PUSHAB DDRESS 
EC A 14 PUS E CODE 
69 _ 169 CALLS § STORE_OPERAND 
04 AE 14F 10$:  PUSHAB OPERAND_NUMBER 
7E 09 «Ab 04 1 H EXTZV #4, #4,-9(OPCODE_ENTRY), =(SP) 
ec A 158 11$: SHAB N 
66 158 CALLS #3, PARSE_OPERAND 
i pect stAre 
046 A 162 12$: | PUSHAB OPERAND_NUMBER 
7E 09 A 04 8 9 EXTZV #4, #4, 9(OPCODE_ENTRY), =(SP) 
66 08 CALLS ni PARSE _OPERAND 
046 AE 173 13$: | PUSHAB OPERAND_NUMBER 
7E 09 AG 04 , 1% EXTZV #4, #4, 9(OPCODE_ENTRY), (SP) 
04 AE ve 14$: | PUSHAB OPERAND_NUMBER 
7E 09 A 04 1 EXTZV #4, #4, 9(OPCODE_ENTRY), -(SP) 
EC 187 PUSHAB ENCODE 
$6 1 CALLS #3, PARSE_OPERAND 
1 MOVL STATE, COONT 
1 BRB £8 
04 AE 192 15$:  PUSHAB OPERAND_NUMBER 
7E 19 CLRL 0 = ( SP) 
eC A 19 PUSHAB ENCODE 
66 19A CALLS #3, PARSE_OPERAND 
1 DECL COUNT 
0c 19F 16$ CMPL i T, #12 
F Ae BGEG 
53 1A4 178 MOVL #1, STATE 
1 1A7 BRB 21$ 
04 AE 1A9 18$:  PUSHAB OPERAND_NUMBER 
7E 1AC CLRL 0 = ( SP) 
ec A 1A 19$:  PUS CODE 
$6 18 CALLS 4&3, PARSE_OPERAND 
1B4 MOVL #2. STAT 
06 A 189 208 PO SHAB 1 Sa ER 
7€ 09 AG 04 O6 1B EXTZv. #0 #4, -9{OPCODE ENTRY), -(SP) 
ec A 1C PUSHAB ENCODE 
&A 0 1¢ CALLS #3, PARSE_OPERAND 
04 AF 1c PUSHAB i 
7E 09 «AG 04 1C8 EXTZV #4, #4,~9(OPCODE_ENTRY), -(SP) 
EC 1D PUSHAB 
$6 0 104 CALLS #3, PARSE_OPERAND 
1D MOVL #3, STATE 
FEA 1DA 18: BRW 
04 AE 1 :  PUSHAB OPERAND_NUMBER 
E 3 CLRL (SP) 
eC A 1 PUSHAB ENCODE 
66 0 1E CALLS 4&3, PARSE_OPERAND 


7 
C é- ° 26:49 AX-11 Bliss-32 V4.0-7 Pp 
tai | mat} 90:96:83 DEBUG. SRCJDB webee 33; age 485 
04 A PUSHAB OPERAND _NUMBER : 1189 
0 PUSHL 3 
66 = = Phitse Fone PARSE OPERAND ; 
04 AE PUSHAB OPERAND_NOMBER + 1190 
QPS 2 3 
06 A PUSHAB OPERAND _NUMBER + 1196 
0 PUSHL : 
EC AD PUSHAB i ; 
66 0 CALLS @ PEASE OPERAND ; 
04 AG PUSHAB RAND _NOMBER + 1197 
ech PusHAB E ; 
64 08 CALLS iP “PARSE OPERAND : 
04 AG PUSHAB AND_NOMBER : 1198 
0 PUSHL : 
ec A PUSHAB ENCOD : 
66 0 CALLS @ Oe ASE OPERAND 3 
04 Af PUSHAB OPERAND_NOMBER + 1199 
8 PUSHL 3 
6 BRB 25$ 3 
06 A PUSHAB OPERAND_NUMBER : 1205 
0 PUSHL @# : 
ec A SHAB ENCODE ; 
66 0 CALLS #3, PARSE_OPERAND 3 
06 =A PUSHAB OPERAND_NOMBER : 1206 
0 PUSHL #3 3 
ec A PUSHAB ENCODE : 
66 0 CALLS #3, PARSE_OPERAND ; 
06 A PUSHAB OPERAND_NOMBER : 1207 
0 PUSHL 3 
ec A PUSHAB ENCODE ; 
66 0 CALLS #3, PARSE_OPERAND ; 
06 =A PUSHAB OPERAND_NOMBER : 1208 
0 PUSHL 3 
6 BRB 2 3 ; 
52 MOVL COUNT : 1214 
04 =A PUSHAB OPERAND _NUMBER : 
0 PUSHL 3 
ec A PUSHAB ENCODE : 
66 CALLS rt PARSE OPERAND : 
F SoBGéa s i 
04 Ar PUSHAB OPERAND_NUMBER ; 1338 
7E 09 «AG 04 EXTZV. #0, #4, 9(OPCODE_ENTRY), (SP) ; 
ec A PUSHAB ENCODE : 
66 0 CALLS #3, PARSE_OPERAND ; 
04 A PUSHAB RAND_NOMBER + 1221 
7E 09 «Ab 04 EXTZV #0, #4, 9(OPCODE_ENTRY), (SP) : 
0 A PUSHAB OPERAND _NUMBER : 1228 
7E 09 «A 04 ae Y it ’ ‘of as, “9(OPCODE_ENTRY), -(SP) ; 
64 0 CALLS NP PERSE OPERAND ; 
04 A PUSHAB OPERAND_NOMBER : 1229 
7E 09 «Aa 04 0 EXTZV #0, #4, ~9(OPCODE_ENTRY), -(SP) F 


BBoEncneC ieoseon HRs 00:24:49 YaUedT OL tan= 82 Vet 7ez 


EC AD OF F PUSHAB ENCODE 
64 0 fe CALLS #3, PARSE_OPERAND 
04 BUSHAB OPERAND_NOMBER 
7€ 09 AG 04 gf EX 2V #4, #4, 9(OPCODE_ENTRY), =(SP) 
EC AD OF 308: SHAB ENCODE 
” 06 RE OF 005A PUSHAS OPERAND WOMBER 
7€ 09 AG 04 0 é ‘3 XTZV. #0, #4, 9(OPCODE_ENTRY), =(SP) 
EC AD OF 31$: SHAB ENCODE 
66 03 F CALLS @ PARSE _OPERAND 
08 a Fe OAD B3 32$: MOVE ENCODE + , @OUTPUT_BUFFER 
01 ? +4 neve #1, R 


3; Routine Size: 700 bytes, Routine Base: DBGSCODE + 0520 
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NCDEC é- - 226: AX-11 Bliss-32 V4.0-7 P 
viveeits 1ea8ee= ihe $8: 98:8? = HONS She ssezewt bel oss. 1 age $9 
GLOBAL ROUTINE DBGSOpcode_Index(Input_Desc : REF dbg$stg_desc) = 
Return fhe index of DBGSOpcode_Name_Table of the opcode MNemonic 
Passed in Input_Desc. 

{ P 

input dese s modified to point after the MNemonic. That is ye 


: consumed. Input desc must be the Mnemonic only i 
Delimiter is not passed. 


- &- & 


1 
i 
Index; 
1 
t 


BUSAP Gio Oooo ne 


08S Bronononononononnony 2 2 3 
r 
om 
oa 
—, 
zz 


Index = Opcode_Name_ Index ( .Input_desc_); ! Get the index into the name 
Code = pbgsopcode Rane Tablet Maden. 7, 0, 8, 0]; } 
; Return the index into the Kind_table 
RETURN (IF (.DBGSOpcode_Name_Table{ .index, 6, 0, 8, 0] LSS %x'FD") i Test for 2 byte opcode! 
THEN (.Code) ! 1 byte opcode index 
ELSE ( .Code + %x°100° ) : 2 byte opcode index 


Se Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge FH Ss Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge 
eB ad eh Dd od a a A ad et 4 ss td tt 
tu) A 8 ed a St tt te th 


FUN IS SOVEGEGN SS 


ed 8 2 Bh et 8 A 9 et 8 


o 
~o 


0000 000 -ENTRY DBGSOPCODE_INDEX, Save nothing 2 1244 
AC 0D PUSHL INPUT + 1260 
0000v CF of FB CALLS #1, OPCODE_NAME_ INDEX ; 
A C4 A MULL2 @ : 1261 
0000000°EF4 oA 9p MOVZBL DBGSOPCODE_NAME_TABLE+7(RO}, cope : 
FD OF 0000000" EF 40 91 CPB GSOPCODE-NAME-TABLE*6LROJ, #25 ; 1265 
50 1 5 p MOVL CODE, RO ; 1266 
50 0100 1 3E 4 1$: MOVAB 256(R1), RO : 1267 
RET + 1269 


3; Routine Size: 42 bytes, Routine Base: DBGSCODE + 070C 


: 


7 

WESeoct9es Q0:2¢:6%  YAMGILSLIGSGREANGsOTSS., «Pane ft 
ROUTINE Opcode_Name_Index(Input_Desc : REF dbg$stg_desc Delimiter) = s 

FUNCTIONAL DESCRIPTION: 


code_Name_Index returns the index into DBGSOPCODE_NAME_TABLE 
given & mnemonic. 


FORMAL PARAMETERS: 
Input_Desc - A string descriptor by reference, describing the 
Mnemonic 


Delimiter = An optional parameter, describing the character 
with which to terminate the Mnemonic, passed 
by value. 
IMPLICIT INPUTS: 
DBGSOpcode_Name_table 
IMPLICIT OUTPUTS: 


Input_desc is update to consume the Mnemonic. 


ROUTINE VALUE: 
The index into DBGSOpcode_Name_Table for the Mnemonic passed 


SIDE EFFECTS: 
None 


BEGIN 
7) a ACTUAL COUNT ; 


m t_ts 
T 


S. 
Limit _GTR; 


ad aed a ad od A A ee tk dd dd a td 


VIOSHUE AF WVLOGS LER MOLOOS NEAR UH SOROS UNIO Doo UA RoW Ooo 


if Actualcount() GTR 1 
ane = Scan_Operand(.Input_Desc, .Delimiter) 
BEGIN 
LOCAL Temp_ptr; ! Current position in the inp 
Skip_Leading_Blanks(.Input_Desc); 
Temp_ptr = CHSPTR ( .Input_Descl dsc$a_pointer ] ); ! Assign the start of the str 


lee 
! Consume the Mnemonic 


Oe a ek kk ea ak a ek et dt a to od ot oo a = 2 2 8 8 8 2 ot 
ee em a a a a ed et od od oe od = 2 4 8 td 8 


PAA NAMI PIAIPUPIPINPINIPIPIPINIRD) 2 ot tt eB ad ad And AB AD nat a Rd A ad cat a oe a oD a 8 8 A ed dt 
Td 
3a 
@ 
7x 
a 


ene 
Oo 


ee 


PRRe 
COBONAU 


eB 8 8 8 8 Pd td td nt St a td 8 td tt 8 8 tt 8 8 ot St tt te 


for 


Us 
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gth LSS .Input_Descldsc$w_length] DO 


char : BYTE UNSIGNED; 
= CHSRCHAR_A( Temp pee ; 

char GEQU'ZC°A’) AND (.char LEQU + ot 
(.char GEQU 3C°O") AND (.char LEQU %C€°9")) 


Length = .length + 1 
EXITLOOP; 
N « 


! Read a character and incr t 


=PRUNRINIWUE & HF BS WWMWWIWIWIWIIPININININININIUS & FPN & Pt 

———— 
+ 
+33 
Pa ede 

en mm 

ee 2 

or oO 

“nm © 
1%) 


= 0; 

= Opcode_Index + 1; 
Binary search of DBGSOpcode_Name_Table for the Mnemonic 
WHILE (Cindex = (.Limit_LSS + .Limit_GTR)/2) NEQ .Limit_LSS) DO 


SELECTONE ch$compare(6,DBG$Opcode Name_Tablel. index offset), 
-length,.Input_DescCdsc$a_pointer],%C° °) OF 


S = .index; 
R = .index; 


BEGIN 
input Beschdscéu. length = .Input_Desc(Cdsc$w_length] -. length; 
In us Pesci decsa pointer? = .Input_Descldsc$a_pointerJ+. length; 

. x 


WN =O OONAOULS WN $$ OS OONOULS wy 


dbg$_badopCode,2,. Length, . Input_Desc{dsc$a_pointerJ): 


ed ed eh a td dt a a oD St td a dh 


O3FC 00000 OPCODE_NAME_ INDEX: 


WORD Save R2,R3,R4,R5,R6,R7.RB,RO : 127 
56 04 AC 00 MOVL INPUT _DESC. R6 : 131 
1 c 91 CMPB AP) ,~@ : 131 
F 18 BLEQU 1$ ; 
08 AC OD PUSHL DELIMITER ; 1315 
DD PUSHL R ; 
0000v cf F CALLS #2, SCAN_OPERAND ; 
p MOVL RO, LENGTH ; 
BRB 5 3 
6 pp PUSHL — 6 > 1321 
0000v cF F CALLS #1, SKIP_LEADING_BLANKS ; 
04 Ab D MOVL  4(R6), TEMP_PTR ; 1333 
59 D CLRL ~—s LENGTH 21 
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59 66 10 0 7 2%: cHPzV #0, #16, (R6), LENGTH : 1329 
0 MOVE § (TEMP_PTR)+, CHAR 1 
41 BF i CHER HAR #8 : 133 
SA OF 1 CMPB HAR, #90 : 
A : BLEQU ; 
30 3$: CMPB GHAR, #48 + 1334 
F 0004 BLSSu 5$ ; 
39 1 0004 CMPB HAR, #57 : 
4 1A 0004 BGTRU 5$ : 
9 06 47 4$: INCL ENGTH + 1336 
§ bs booce 5S erRt CIMIT_LSS rc 
8 0143 «BF be move L eas “LIMIT_GTR : 1363 
50 c 6$: ADDL3 LIMIf_GTR, CIMIT_LSS, RO + 1347 
4 : C7 DIVL3 #2, RO, INDEX ; 
p A CMPL INDEX, LIMIT_LSS : 
F D BEQL 0 : 
50 54 A C3 a MULLS #10, INDEX, RO + 1349 
59 20 00000000'EF 40 é SD CMPCS #6, DBGSOPCODE_NAME_TABLECROJ, #32, - : 
04 ¢ LENGTH, a4(R6) : 
1A 0007 BGTRU ; 
57 1 09 0007. SBWC OC s#1, -R? : 
FFFFFFFF © F 7 D} 77 7$: CMPL = R77. #1 : 1352 
5 ; 7 BNE 3 
55 4D MOVL INDEX, LIMIT_LSS ; 
cp 11 BRB &$ : 
01 D1 8$: CMPL = R7, #1 : 1353 
09 1 BNEO ; 
58 4 0 MOVL INDEX, LIMIT_GTR ; 
c3 j BRB : 
D F 9$: TSTL «6 $ 1354 
ef 1 BNEG 6$ F 
9 A 9 SUBUZ LENGTH, (R6) :1 56 
04 Ab 39 C 9 ADDL2 LENGTH, 4(R6) 21 2 
4 BO A MOVL INDEX, RO ; 1358 
04 as 0D 10$:  PUSHL  4(R6) : 1362 
59 DD OOOA PUSHL LENGTH : 
2 DD OOOA PUSHL @& ; 
00028208 8F DD 000A PUSHL #164360 ; 
000000006 00 4 Fe CALLS #4, LIBSSIGNAL : 
0 p B CLRL = RO : 1363 
4 RET 31 


3; Routine Size: 181 bytes, Routine Base: DBGSCODE + 0806 
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; } } ROUTINE Fetch _Instruction(Pointer,Context) : NOVALUE = 
3 i i BUILTIN PROBER,MOVCS; 
:1 1 IF NOT PROBER (XR FCO) ,SREF<.D2ts, Sizel.context]),..Pointer) 
3 1 $ 1 $ THEN inert spate. foe cessr. . “Point ater } 
:1 : 137 movcs ( REF(.D Bulfei Cont texti), ;:Po nter REF (0), 
: 125 137 fer;,.Pointer); 
‘ ; rst } 6 SEL LECTONE 16) .0p-8 
: 126 1375 context_b Op_Bufferls_lon -Op_Suffer(s_bytel; 
3 1 8 1 6 context oH): Op: -Butferts. “tongs = “Op- butterts s =bytgii 
> 1264 137 OTHERWISE 
: 1265 1 Md: ; 
: 1266 137 END; 
O3FC 00000 FETCH. INSTRUCTION: 
WORD Save R2,R3,R4,R5,R6,R7,RB,RO : 1365 
59 9900000 ' €F 9€ 9002 MOVAB Saya SE, ; 
8 00000000° EF 9 0 MOVAB OP _BOFFER, RB : 
& 0 AC DO 00010 MOVL CONTEXT, R6 + 1369 
0 6946 9A 00014 MOVZBL DATA site Re, RO ; 
04 aC 0 00018 MOVL POINTER. : 
00 87 50 og O¢ 1 PROBER é ah iR7) i 
7 OD 5 PUSHL  (R7) : 1370 
1 OO PUSHL 1 3 
00028228 8F oD PUSHL #164392 ; 
000000006 99 3 FB D CALLS $S1GNA : 
9 6946 9A 1$: MOVZBL ertat sit Role + 1371 
ee 00 00 8 30 eC 00058 ROVES' RO, GOCR?). #6, #16, OP_BUFFER ; 
67 1D f MOVL 1, (R7) : 137 
i , Ae TSTL = R6 ; 1332 
4 4 BNEG = 2$ ; 
68 68 46 cVTBL OP_BUFFER, OP_BUFFER ; 
01 ; D1 4A 2%: CMPL =sR6,, #1 : 1376 
68 6 3 rt aU OP_BUFFER, OP_BUFFER : 
52 38: RET * itn : 1379 


3; Routine Size: 83 bytes, Routine Base: DBGSCODE + 08BB 


NCDEC -$ep-1984 00:24: AX-11 Bliss-32 V4.0-7 Pa 71 
vite 18: sep-1984 99:96:87 — ONaUG. SacSbecenvoes 104351 9°23) 
nout i f Fetch_Operand(Pointer,Context,Print_Flag,Index_Flag) : NOVALUE = 

COAL 


Mode_Specifier, 
RegiSter_Field; 


OWONAUILWO 


scree Context OF 
context _p,context_t): 
peo and(, , int Print_Fl Index_F lag); 
er ointer,con wu,.Prin ag,.Index_Fla 
IF .Pr #9pe Fla ag | HEN DBGSP os tiForast AD,T comes ); 8 
Fetch " Opefend Pointer,context_b,.Print “Flag. Index. Flag); 
teongaalat econtext_vJ: 
Fetch 2ane lag Th Pointer gon ext_l,.Print ~f tag. - Index. Flag); 
IF .Pr paé$Pr nt (Format AD71 
Fetch_Operand Po ner context 6 .P Print viper Flag); 
IF “context t EQL . conten’ v TH 
fetch. Operand(. 
COTHERWISE3: 
Fetch_Instruction(. gbormter « gnrext bu u); 
Mode_Specifier = .Op_Buf fer{O.4 04.4,0 
Register_Field = .Op~Bufferl0,0,4.0); 


IF (.Print Flag AND .Index Flag AND (.Mode_Specifier LEQ 5)) 
THEN SIGNAL (a g$_addressmode) ; 


CASE Rode specifier FROM 0 TO 15 OF 


3): ! Literal 
ite e -Print. Flag) THEN 


DBGSPrint(Format_AD,3,UPLIT BYTE('S*#")); 
SEL LECTONE Context OF 


context_f,context_d 
Congetigescontent- “hi: 


Operand. Value = (.Operand_Value*4) OR %X°4000'; 
nt _Operand(context_ f); 


END 
corHERvi se: 
Print_Operand(Context_b); 


BEELER EES Sooo 


dd od ot td od od mt OOO’ 


NEI VO UO RUN H OOONOA MEUM AODD 


TES; 
END; 


(4,5,6,7 8.93: ! Various Register Modes 
IF (.Mode_Specifier<3,1,0> AND (.Register_Field EQL 15)) 


Be Se Ge Se Ge Ge Se Ge Go Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Be Ge Ge FF Gs Ge Ge Se Ge Ge Ge Se Se Se Ge Ge Ge Se SF Se Ge Ge Se Se Se Se Se SeSeSeSetsese 
ee ee ce cee em el me lh me me me ee Oe ee ed ed ad ed ad od dd wd SS SS — 
em ee ce ee cel ee ce ee ee me me ee DB me me mee ee ee ee ee ed ed td nd ed ed od = dd dd 2 SS od 


BREE RR EEE E ER EEE R PREP PEE PEPE PEP PEP PPPS 


WAAWA AN AAA AAA AANA AA 
oOoocoe oh oho dre} oro} o) 
PEMA BUI E BNI BBB BF PWIA NII WII WWIII POP INI IROPOPOnonononong 
= 
coal 
° 
2 
ado 
= } 
“we 
5 
- 
ic] 
~=2@ 
2-4 
oz 
rn 
32 
oe 
eo 
- wo 
ao 
= we 
ou 
39 
— 
eso=z 
=e 
” ra? 4 
a 
‘oo 
7-3 
. 3 
ve 
be Dad 
=) 
a 
- hod 
ss 
- 
oo 
73 
7 
se 
3 
J 
Qe. 
@ 
a 
aaa 
ce) 
wo 
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3s 7 14 THEN 

3 1 14 BEGIN 

3% 14 IF NOT .Mode_Specifier 

3 1 144 THEN 

3 1 144 ? BEGIN 

3 1 144 Fetch_ netructiens . Pointer,.Context); 

; ; rr IF .Pr nt Flag THEN 

31 1445 pee Print(Format_AD,3,UPLIT BYTE('I*#")); 

3 1 rr P “ -Operand(. Context); 

t ish a0 

:1 144 

31 1450 ° 

3 1 1451 betch. nstruction(.Pointer,context_l); 

; : 1026 8 IF 4 Pr rant. Flag THEN 

> 1 1454 7 Peecrlatertt AD .2,UPLIT BYTE(*@#*)); 

: ; 102? { > Address ( Operand_ Value); 

31 1489 : eno © 

. 1489 2 evsee™” 

31 1460 

2 1461 IF space, * ecifier EQL 4 THEN 

3; 1 1006 Fetch gre -Pointer,.Context,.Print_Flag,1); 

3 } 1087 IF print. .F HEN 

31 1465 6 BIND “pune uation = UPLIT BYTE( 

: 1 14 6 "sn ae ! Mode 4 

31 166? & + 8.9.8.5 08 i Mode 5 

31 1468 6 Hi nbd nh BF i Mode 

3% 1469 6 wage, ht ee Ie i Mode ? 

2 | 1470 6 S «So PS aren Mode 

:1 1471 6 rarce(ee eye tess Mode 

: i 1478 : - (424)°: BLOCKVECTOR 16, 4 BYTE): 

:1 1474 6 IF .Punctuation£ .Mode_Specifier,0,0,8 °2 NEQ 0 THEN 
3 1 1475 6 DBGSPrint (Format_AD,1 -Punctuationt.Mode Spec itier. -0,0,0,0)); 
21 1476 5 IF .Punctuation£.Mode_ S$ Specifier, 1,0,8,0) NEQ 0 THEN 
3 1 1477 6 Bee Print (Format ands! Punc tuat 3b snoee _specifier,1,0,0,0]); 
3 1 1078 6 DBGSPr we ctornes At. AC, Register Na 399i stra “Field)); 
31 1479 6 If . “Dunes uation THEN 
31 14 6 rint(Form t AD. 1 -Punct Rigtdontae Hodes ecitier.2.0.0.03); 
3 1 14 7. ry DeetPrin on "mods. Specif ier, THEN 
: 1 14 $ 8 — Print (Format AD, 1 citer .3-0-840 hole Open i fier,3,0,0,03):; 
t ie eo; 

31 1485 END; 

3 7 14 

31 14 ; C10,11,12,13,14,15): ! Displacement Modes 

71 1488 4 BEGIN 

} \ \¢ ? LOCAL Offset_Context; 

21 1491 4 Offset_Context = (Mode Specifier-10)/2; 

31 1436 4 Fetch Instructions. are nter, .Offset_ Context): 

31 1495 4 (.Print_Flag) T 


NCDEC base -1 AX-11 Bliss-32 V4.0-74 P 73 
ive 1ea$ee=18Re F8i%e:8? = HONS Shi ssezewtber oss. 1 99° (23) 
BEGIN 
BIND Mode_Char = UPLIT a oe ) : VECTORC,BYTE; 
iF eae ri sat ry TH 
0B 4: a Fornat Hs ' let iT BYTE(‘a’ 
DBGS$Pr AD, |. Mode arte Offset t Context]); 
0BG eprint poreet™ Atte ger teeth SF he 
If -Register_F 34 te 
use Print_Address(.Operand_Value + ..Pointer) 


hy aqperend<. Oripe -fontext? 
DBGSEF nt (Format_A PLIT BYTE(*(")): 
DBGS$Print (Format— “KC. ‘Register NameC. Register. Field)): 
DBGSPrint (Format _ ~AD,1,UPLIT BYTE 


END: 
END; 
TES; 


TES; 
END; 


bd ed PD nd BD ed 8 8 dD 8 ttt 


— 
Arun—ooe 


PUPPIES £* £* = 
wu 
PRIMAL MAAAA AMAA ANIM 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


ror 
Win 
mouw 
wmm 


00 00 00 00 00 


we WI 


ee 
~ wei 4 


PAA AEL ALAA AOL L AA # AFL AA 


00 
oA 


oA 
oA 


° 
> 


4c 57 


RMA SRINNIN LSUINNVNENNVNININOMIEL Lui 
WOOM OND OWOOW OMOOWOWSOOWBOUTDOOOW 


RESBRISAR CHO MMOADS Overs Omaos 
oO 


ee ee De BR eB 8 8 8 ea et a a 
ee cD me ed ad ed ab a Od 2d a tt 4s nt a nd 


PAA AAA PAPA A OS 
~n 2@W+~-—@ +~ 


CTUATION= P.AAN-16 
E_CHAR= P. AAO 


opoen pec ieosen-t9ue 0:24:49 YANN] BLigs-32 v40-742 Page, 24 
-PSECT DOBGSCODE,NOWRT, SHR, PIC,0 
O7FC 00000 FETCH OPERAND: 


WO Save R2,R3,R4,R5,R6.R7,RB,RI,RI0 F 

A AF D00C MOV FETCH OBERAND rio ; 

"EF 0000 MOV oP BUFFER, R : 

G 00000 MOVAS  ODBGSPRINT, R 3 

EF 00014 MOVAB FORMAT_AD, R : 

4 AC 00 00018 MOVL CONTEXT, R4 : 

4 D1 9008 CMPL =oRG, 11 : 

? 000 BLSS 2s : 

“ oe a 1 
7E 0c AC 7D 00029 mova PRINT FLAG, -(SP) : 
OA DD 000eD PUSHL #1 : 

04 AC 0D 0002F PUSHL POINTER : 

6A 04 FB 000 CALLS #4, FETCH_OPERAND : 
A o¢ AC : 100 BLEC  _— PRINT_FLAG, 1$ ; 

A? 9F 000 PUSHAB COMMA : 

1 DD 0003C PUSHL # : 

7 Dd 000 PUSHL R7 ; 

8 3 FB 000 CALLS #3, DBGSPRINT : 

iq oc AC £0 0043 18: nova BRINT_FLAG, =(SP) : 

0D 4 pI 00049 28: CMPL = R4, #13 ; 
1 19 0004C BLSS : 

OE 4 01 0004 CMPL =oRG, #14 : 
4c 14 000 BGTR 7S : 

10 Ac BD 00 PUSHL INDEX_FLAG ; 

52 OC AC DO 00056 MOVL PRINT-FLAG, R2 ; 
3 DD 005A PUSHL R : 

DD 0005¢ PUSHL # : 

04 AC DD 0005 PUSHL POINTER : 

6A O¢ FB 0006 CALLS #4, FETCH_OPERAND ; 
OA é £9 0006 BLEC =—s_-R2, 3 ; 
08 A? SF 00067 PUSHAB C ; 

1 Dd 0006 PUSHL  # ; 

7? pd 0006C PUSHL R ; 

68 3 FB 0006 CALLS DBGSPRINT : 
10 AC pd 006 38: PUSHL  INDEX_FLAG 3 

32 DD 20074 PUSHL R2 ; 

—E 04 000 CLAL (SP) : 

04 AC Dd 0007 PUSHL POINTER ; 

6A FB 00078 CALLS #4, FETCH_OPERAND ; 
4 00¢ CMPL = oRG, #14 : 

1 : 4! ; eure 43 3 

OA 53 £9 D008, 4S: = BLBC 2. SS ; 
08 A fF yUUE PUS C Py 

0D yUUE PUSHL & Py 

DD 0008C SHR ; 

68 FB 0008 CALLS #3, DBGSPRINT ; 
10 AG BD 90031 58: BUSH INDEX_FLAG : 

32 005 PUSHL Re ; 

E D4 00096 68: LAL” «= (SP) : 

04 AC DD 0005 PUSHL POINTER F 
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04 FS 191 CALLS #4, FETCH OPERAND 
09 OD 9F 7$: PUSHL 4&9 
55 06 A 5B MOVL POINTER, RS 
D PUSH R 
AD AA F A #2, FETCH_INSTRUCTION 
3g 83 EF 0008. NTEV B07 #6. GPTBUFFER, REGISTER Piece 
0c aC D r MOVL PRINT FLAG? R6 * 
5 E 36 BLBC OR 
1 10 ag BLBC INDEX FLAG, 8$ 
0 é b} cHPL DE_SPECIFIER, #5 
00028753 8F DD 000C PUSHL #165715 
000000006 FB CALLS #1, LIBSSIGNAL 
F CF 0000 gs: CASEL bE SPECIFIER, #0, #15 
$028 $3 ie i Ja 193-98. 
F F 4 10$-9$.- 
bore 3 3 F 10$-9$,- 
153-98. 
12$-9$.- 
12$-9$,- 
12$-9$.- 
12$-9$.- 
$-9$.- 
$-9$.- 
$-9$.- 
$-9$.- 
$-9$.- 
7B 56 €9 000F6 108:  eLBc Re ta 
70 33 F OO0F PUSHAB P.AAK 
> BP doork PUSHER 
68 3 FB 001 CALLS #3, DEGSPRINT 
4 p 01 CMPL =sRG. Of 
15 19 001 Biss 118 
08 34 1 001 CMPL = RG, #8 
5 9 2 18 001 ASHE ii ERAND_VALUE. RO 
89 $6 ooooso00 BF C9 001 BISLS #18384. RO, “OPERAND, VALUE 
at 
i goue  peet a” 
3F 2 E1 00121 128: BBC #3, MODE_SPECIFIER, 15$ 
F By 901 CMPL —-REGISTERTFIELD, ais 
A 01 BNEG =} 
1D 2 EB OO12A BLBS E_SPECIFIER, 14$ 
DD 001 PUSHL R 
DD 0019F PUSHL R 
AD FB 01 CALLS #2, FETCH_ INSTRUCTION 
3C § 01 BLEC —«_—«aRG,_ «16S 
73 AY «OF 001 PUSHAB P,AAL 
03 DD 001 PUSHL #3 
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001 R Py 

68 5 PB ab CALL a, DBGSPRINT : 

44 901 H 3 

0000v CF 1 FB O0144 138: CALLS #1, PRINT _OPERAND ; 
10149 RE : 14 
DD OO14A 148:  PUSHL # : 14 

DD 0014 PUSHER : 

AD AA FB 001 CALLS #2, FETCH INSTRUCTION : 
1F 9 001 BLBC RG, 168 : 14 
76 «A? OF 001 PUSHAB P,AAM 3; 14 

DD 001 PUSHL  # 3 

DD 0015A PUSHL § R ; 

68 FB 0015¢ CALLS #3, DBGSPRINT : 

BD 0015F PUSHL  QPERAND_VALUE ; 

OOA 00161 BRw 3 3 

04 D1 00164 15S:  CMPL - MODE_SPECIFIER, #4 ; 

10167 BNEG 168 ; 

DD 00169 PUSHL ; 

0050 8F 88 001 PUSHR = #* CRG, R6> : 

5 DD OO16F PUSHL ; 

6A FB 0017) CALLS #4, FETCH_OPERAND ; 
61 § £9 00174 168: BLBC : 14 
68 A7%2 DE 00177 PUSHAL PUNCTUATIONCMODE_SPECIFIER] 3 14 

9e 95 00178 TSTB B)e ; 

13 00170 BEQL ; 

68 A742 DF 0017F PUSHAL PUNCTUATIONCMODE_SPECIF IER] ; 

DD 001 PUSHL # ; 

7? 00 001 SHL ; 

68 FB 001 CALLS #3, DBGSPRINT : 

69 A742 DE QOIBA 178: — PUSHAL PUNCTUATION+1 MODE, SPECIFIERJ 3 

8 33 001 a a ; 

69 A742 DF 001 PUS CTUATION+1CMODE_SPECIF IER) ; 

DD 001 PUSHL # ; 

7 0D 0019 PUSHL : 

68 FB OO19A CALLS #3, DBGSPRINT : 

0 A743 DF O19 188: PUSHAL REGISTER NAMECREGISTER_FIELDJ : 

A? 9F OTA) PUSHAB : 

68 0g FB O0IAs CALLS #2, DBGSPRINT ; 

GA A7G2 DF OO1A7 PUSHAL PUNCTUATION+2CMODE_SPECIF IER] 3 

E 93 O01A8 TSTB) a SP)+ : 

13 OO1AD BEQL = 19 ; 

6A A742 DF OOIA PUSHAL PUNCTUATION*2CMODE_SPECIF IER] ; 

Bo 0018 PUSHL # ; 

68 FB OO1B CALLS 85, DBGSPRIN 

6B A742 DF OO1BA 19: PUSHAL PUNCTUATION® SCMODE_SPECIFIER] ; 

48 dole sear, Sek 

68 A763 OF Porc PUSHAL PUNCTUATION¢ 3LMODE, SPECIF IER] 2 

50 F6 D01¢8 208 ROVAR =10¢R2). RO ; 

54 c? O01c DIVLS #2, _RO, OFFSET_CONTEXT : 

Dd 001 PUSHL OFF SET_CONTEXT : 

AD AA 3 FB OID CALLS #3, FETCH_INSTRUCTION 

58 E9 OO1DS 218: LBC” RES 26S ; 
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Page 
08 52 €9 C  MODE_SPECIFIER, 228 : 
0093 § §? nt P. AAP em. ¢ : 
DD PUSHL # : 
68 pe CRCS. 93, DBGSPRI : 
0090 ¢7 4 } 228: SUSAB OF be CHARCOF FSET. CONTEXTI : 
OD F Pus H : 
68 8 7 CALL DBGSPRINT : 
0094 OF OO1F PUSHAB P Aaa : 
DD OO1F PUSHL ; 
DD FB PUSHL ; 
8 F CALLS ; DBGSPR : 
F ; p CHL RE ef TER_F Eup, #15 : 
7E 69 § ¢ ADDL3 eas) 5A QRERAND VALUE, ~ -(SP) ; 
0000v CF 1 fe 23S: CALLS #1, PRINT_ADDRES 3 
34 DD F 248: PUSHL OFFSET_CONTEXT : 
0000v CF wae | Fe 1 CALLS #1. BR RINT_OPERAND ; 
1 DD OO21A PUSHL #7 : 
7 0D 0021C PUSHL Ry oe ; 
68 : FB If CALLS @ : 
po A74 DF PUSHAL REGI 1S96R R NAME CREGISTER. FIELD : 
A? OF 3 PUSHAB ron RMAT AC : 
68 0¢ FB CALLS #2, DBGSPRINT F 
0096 OF PUSHAB P.AAS : 
1 DD F 25$ PUSHL aj 3 
7 0D 1 PUSHL ; 
68 3 FB 3 CALLS aS, DBGSPRINT ; 
04 268: RET 3 


3; Routine Size: 567 bytes, Routine Base: DBGSCODE + O90E 


a 


AE RI =O DONO 


eed ed ed od od oe wd 
Sad St at ot ot ot ot ot ot oe net met net me 
— 2) 2 tt 
NO 


MEW 


NOUNS Py 


MEW — 


& Pak at te at et et ae ae eee Pat tote 
PERE - iD 


Be Se Se Se Ge Se Se Ge Se Se Se Gs Se Se Ge Se Se Se Se Ss Se Ge SE Ge Se Se Se Ge SH Se Ge Se Se Se Se Se Se Se Se Gs ee 


i a a 8 ek a ad ad ad dd dd dd ds a td ot 


a a a a a a a a kk dd ot 
PATA BEELER 


AUF WO OONOUS WN —O0O@ 


MEwN—o 


rm 
= 


if se 3:96:57 — UbkauG. SacSacentoee.0s3; 1 Page 85 
wr gEGIN Parse_Operand(EnCode,Context ,Operand_number) : NOVALUE = ! "007 


RAP En Code : REF BLOCK oe FIELD(EnCode_Fields); 
wat scan, trim,mode Addr 


A fate. : eten register and addressing mode 

d_Reg ! For saving the indexed regi 
biselecdacke tosize_ne eded, ! Displacement sized needed f 
beter. Parsed, {-Operand Lengths (unparsed and total) 


are pe Roce an and Address 
: REF VECTOR C,BYTEI; 
MACRO east eas = (SIGNAL (dbg$_opsyntax,1,..Operand_number);RETURN)%; ! saves Code M007 


SELECT ONE Context OF 
context P-context. ti: 


Parse_Operand(.EnCode,context_wu,.Operand_number) ; ! "007 
Reruen; no” -EnCode,context_b, .Operand_number); ! "007 


E 
Coontext m,context_vJ: 
BEGIN 


Parse apperends « EnCode,context_ k--Operend. pamper ts : M007 
Parse_Operand(.EnCode,context_b Operand_number) 
dF ogontent EQL context_m THEN Parse Operand(. balede, contest Peas, number); ! M007 


Comment ses 
BEGIN 


-Operand_number = ..Operand_number + ! a007 
Len th ="Parsed = Scan _Operand(En fodeLénc _Input_Desc],%C',"); 

Buffer = igentocetens 1h In ut Buffer 
WHILE (. ngth Butfert.Length-1) EQL %C* ") DO Length = .Length = 1; 
IF -Length EQ 0 THEN SIGNAL COBGS. INCOMPOPR, 1, ..Operand_number) ; ' 007 


TES; 


TS 


SRBGRAR IO Oe 
DOHA 


Dak ee ee ee ee ee 
> 


POSES 


ee 
Lee 


SERS 
SS SS ASS 


RERERRRR 
SONOUN 


23 


S 


PESSESERER PENNS Sao 


SER 


Oo 


Oe ek a at at a at a a ad ob Ls 2s ts sb 8 8 a 2s ts 4) a tn 5 a ts a tt SS 
wn 


Selah tah ab ab sb sb ah sbesb ib Ab Ab Ab ab Ab ah Al 


SESSe 
$333 


SRL LLEESE 


SPSSS3 


oO 
w 


SeSSSReRes 


ec cee a el me er mee ae ce me ec ee ee a ad ed ed ad ad ad ad od = dd td dd dS td 8 tt td td ts 4 — dd 


ee ak ed ed ed ed et a at SD 


SsSSSas5 
ESSSSESF 


AOAanw 
— et ed 


Wnr—o 


rbesen- 1964 99:24:49 
BEGIN 


lock takes the -(Rn)CRn] off the operand 


starting at the back and trimming toward the front 


pecin 

Mode = 0; 

Heploctact size_needed ©.0: 

If .Bu : CoCengthe i) EQ. 3C'J* THEN 
t 


FROM .Len 


se 
fer 

eh Star h-1 TO 0 

IF sbutfert.startetd EQL gctc? THEN 
€ 


-Regnum 


SIGNAL (DBG$_PCNOTA beg gSperend_maber): 


IF (Length = .Start = 1) 
THEN 


SIGNAL (DBGS_INCOMPOPR, 1, ..Operand_number); 


Indexed_Regnum = .Regnum: 
Regnum = .Regnum + 2X'40'; 
Store_Operand( .EnCode,Regnum,1); 
R_Mode = <1; 

EXITLOOP; 
END; 
END; 
IF ‘But fort.Lengen=12 EQL %C°+" THEN 


R_Mode = %X'80'; 
id (Length = .Length - 1) LEQ 0 


IF ‘But tor€.Longth=1) EQL %C°)* THEN 


DECR Start FROM sLongthes TO 1 DO 
uF seytrort.Stert~ EQL C°(" THEN 


Regnum = Parse RepietorBulterl.Stert)..Length-t~.Stert): 


IF (.Regnum EQC 


SIGNAL (DBGS_PCNOTALL, 1, ..Operand_number); 


IF 7 poae GTR O THEN 
IF_.Regnum LSS 0 
TH 


SIGNAL (DBGS$_REGREQ, 1 = Operant _mumber): 


IF (.Indexed_Regnum EQL .Regnum) 
(.R_Mode ear "gx"80") . 


G 
gnum = Pores fogteter tut tert .Sterts,.Lengennt>. Stare), 


SIGNAL (DBGS_REGREQ, 1, ..Operand_number); 
GEQ 15 


E 
. SIGNAL (DBGS_INCOMPOPR, 1, ..Operand_number); 


V4.0-74 P. 
webeeso3551 age 3 


No indexed register seen ye 
No displacement size needed 
Index mode? 


! Look for matching C 


! Get the register number 
! Bad register, Assume addr-e 


i Disallow PC 


i Consume the (Rx) 


! make sure there is more 

! Save the indexed register n 
! Construct the index mode by 
! Store the index mode byte 


Flag that we've done index 


! Autoincrement? 


Construct the mode field fo 
Consume the °'+"’ and 


make sure there is more 


! (Rn)? 
! Look for matching ‘*("* 


' Get the register number 
! Dissallow the PC 


i Autoincrement from above? 


Yes. We must have a regist 


i Bad register 


i The indexed and base regist 
! same if the register is aut 


ppsencnec ibcseo-t96s 90:24:49 yannt atig-32 y 


o7333-1 Page Af 


3:1 161 SIGHAL (0088 -INDBASEQL, 1, ..Operand_number); } 

3 3 161 ERE erin z 13 ' Consume the (Rn) 

3 : } : tEh ! Done trimming 

3 i 161 If, sRegrum uss. 0 ! Bad register 

51 1 SIGNAL (DBG$ aon » «sOperand_number); ' 

3: 151 1 IF .Star teat ee ! °<"'* ig the start? 

3; 151 16 THEN R . Yes. Construct register def 
3; 151 1 ELSE. IF ¢ Bur terto eh ZC'=") AND (.Start EQL 2) ! Test for autodecrement 

: 151 1624 THE ! Construct autodecrement 

3 } 1? } 5 IF .R_Mode” CTR *o THEN } Po. we have something? 

: 1 i3 \ ° IF (. oingoned Reonue fot Regnum) AND i The indexed and base regist 
3 ; 19 ; 8 ° R_Mode EQ. %x'70' ! same if the register is aut 
: 1 ig SIGHAL (0068, ,)MoeAsed.. ac . Operand_number); ! 

3; 1521 16 Regnum = Regs ! Construct _ anes and regi 
3 1 ; 1 § f Store _Operan (. Entede Repun. 1); ' Store the byte 

3 } 1 H ov VEscan; ! Done scanning 

: 12 5 1635 Length = .Start - 1; ! Consume ghe (Rn) 

3 1 $ 16 : qhode = ZxX‘AO'; ! Byte. aa or Long handled Later ' Assume simple displacement 

3 1 16 Displacenent. size _needed = ! We don't know the displacem 
5 i 8 19 ; ! Done trimming 

i 1 1640 END 

3; 1531 1641 4 ELSE IF .R_Mode GTR 0 ee Bepert Error; ! Autoincrement and no ‘')*’ 

3: 1532 1642 3 END; ! End of block ‘trim’ 


we 


, ae 
wn 
COS SSS SSF 
VMIUIMIVIVANIUIUNU 
DOEBNALAE WMI OS OONAUIS UW 


WN OOO NOu 


AAA & 


ray 


NO 


Wn 
0c 
SagETERES 
MEW 
CODED RII ID° SIDED SE PVPS TSI VDE SII NN BS BP BB EE BBB FIANNA AAAI 


PANGAN 
VSEAFERLS 


o 


SANGIN 
> 
a 
(-% 
ie | 


ALUN AOSONOUR UN OD 


FAAAAA AAO 


BONONEUN—OO 


Be So Se Ge Se Se Se Se Se Ge Se Ge Be Se Ss Se Ge Fe Se FF Ge Ge SF Se SE Ge SF SF Ss Ge Ss Se Se Ge Se FH Se Ge SE Se SF Se Se Se FHSS Ss Ge Se Se Se Ge Se Ge Se Sees 


ced ce cd ced ceed cet ce ed ced ed ed ed ed ced ed cd ed ced ed ceed etd ed ce ee cel ce ce ee ed cee ce ct cee cc ee ce ce ce ce ce cel cee cc cl cl cc cel cel cel cel cel cel cel eel eel cel 
a ee ee ee ee ee ee ee ee ee ee ee ee ee eee SS YY 


SSELSALEN=SS 


PPPAPAAMAANAA 


1fosen-1964 99:24:49 


1 

! We get here with Regnum and R_Mode indicating the current 

; state of the tog a Values are :- ° 

4 R_Mode Regnum 

! % no cegister operands seen 

} : * CRn) has been generated 

} e° n (Rn)+ parsed (not generated) 

1 A n (Rn) seen - sraplaconent expected 
' 


(mode will be changed needed) 


IF (Length GTR 0) AND (.Buffer(0] EQL %C'a@") THEN 
BEG! 


Length = .Length - 1; 
Buffer = .Buffer + 1; 
Defer = %£x'10'; 


END 
ELSE 
Defer = 0; 


IF .R_Mode EQL 2X°80° THEN 
BEGIN 


IF .Length NEQ 0 THEN SIGNAL(DBG$_OPSYNTAX, 1, ..Operand_number); 
Regnum = .Regnum + .R_Mode + .Defer; 
Store_Operand(.EnCode,Regnum,1); 
LEAVE scan; 
END; 
14 
: y now (Rn), (Rn)+, -(Rn), @(Rn)+ are done 


IF (.Length LEQ 0) THEN SIGNAL(DBGS_INCOMPOPR, 1, ..Operand_number); 


BEGIN 
IF (.BufferCO] EQL 2C'#") THEN 
BEGIN 


+1; 
h-1: 
) ok (.R_Mode GTR 


£ ) THEN Report_Error; 
AND (.R_Mode LSS 


ais ; ) THEN Report_Error; 
Régnum = XX'OF': 
EN 


qth LSS 2) OR (.Buffer(1) NEQ 2C°*") THEN 


eR_Mode NEQ 0) OR (.Defer NEQ 0) 
(Parse_Register(.Buffer,.Length) LSS 0) 


BEGIN 
Regnum = 15; 
R_RMode = 2X'A0'; 


AX-11 Bliss- 


VG © 0-74 
DEBUG.SRCJDB $351 


CDEC.B 


Page 8) 


! Leading ‘‘a’'? 

! Yes 

! Consume it. 

! Set defered mode 


! No 

! Clear defered mode 

$ apnea from above? 
i More in srene error 


' Construc 
' Store operand 


! There must be more. 


' Addr-expr got caught where 
! Look tor 7 - 


! Consume the ‘‘#** 


terals 


!' There must be more and we c 
! Indexed mode not allowed wi 


Assume immediate mode 


! Not a '#' in front 
' Not ?°xxxxx 


We have a Relative addr 
Has a (Rn) been seen? 
No 


Construct the register 
Construct the 2 


m 
o 


000 
Wr 


wm 


SSeS SSeS eSS SSS oS 


Pt 


MEN SO ODNOUNE WN OO OONOUL WN 


a et Dd td td 


POAAAPAAAAOCAAOAAA 
NOUS WN —OODOVNOUSWN OO 


ee ee ee ee cee ee ee eee SSS 
ee ee ee ee en en nn en ee en en ee ee ee ee ee ee ee ee 
Sa fe bebe ete bee Pi nn ee Se a he ee > pp 


HPP LLLLESE 


NAO ~IN10909 © 69 09.69 69 69 O69 “109 69 69 09 OO CO 6909 O09 69 INNO NIIP AA AMAA AAA SINIOD 


ADOAAADAAAAAAAAAAOS 


Swe 


WONAULSWN OOO 


HEoseoctone 00:94s49 yet 


RET oes ee = 1; 
EAVE Addr; 
Regnum = Parse =Pepiater<. Buffer. eLength) + %x"50'; 


Store_Operand(-EnCode,Regnum, 1) 
LEAVE” scan; 
END 
ELSE 
BEGIN 
Fane fod Mode_Char = Pas | gyre C"ou.sts" ) : VECTOR(C6,BYTE); 
ae cbuttert03 ea ear -Mode_Charl.Index]) THEN 
Bu 4 = .Buffer + $i 
Length = sLengeh - 23 
iv eLength LEQ 0) 
SIGNAL (DBG oe 1, ..Operand_number) ; 
IF “inden LEQ 3° THEN 
IF (.Index EQL 3) A 
(.R_Mode GTR 0) AOR (.Defer NEQ 0)) 
THEN Report. rror 
IF Ch fo Mode LEQ”O) THEN 
a x" = %x' HEE 
Re num = 2x'OF* 
Mode + (.Index*Zx'20'); 
Sraptscensnt’ st sise _needed = 0; 
ELSE 
BESiN, 
oS R_Mode GIR 0) OR (.Defer GTR 0) 
({Buf fer 92. - ZC'#') THEN Report Error; 
R fed e = %x' (.Mode_Charl.IndexJ*16); 
Regnum = %X'OF 
Buffer = “hultes #13 
Length = .Length - 1; 
IF (.Length LEQ 0) 
SIGNAL (DBGS_INCOMPOPR, 1, ..Operand_number) ; 
LEAV Mode: 
SIGNAL (bBGS -BULGISMUS. 1. ..Operand_number); 
END; ! End of block ‘mode’ 


! There must be more 


i One of BWLG 


! If 6* 
! must not have (Rn) on end o 


! When there was no (Rn) 


! Do the eS thing for rela 
! and relat 


' Construct the mode 
! The displacement size has b 


! (Rn) and A, P aes allowed 
' Must hav 

: Construct the right mode 

! The right register 

. oneume the 

! Wrong sign 

! There must be a addr-expr | 


! Done 
! Wrong char in front of * 


eucee.033;1 Page 285 


! The displacement size must 
We must have an Addr-expr 
Simple register mode 

Store it 

Done 


We have ?“xxxx 


i The possible ? 
' Scan co the List 
! Did we find one 


! Consume the “? 


defered 


4 
NCDEC -$ep-1984 00:24: AX-11 Bliss-32 V4.0-74 Page 83 
voce 12280871382 99: 9689 DEBUG. SRCSDBGENCDEC .63551 . (283 
: i if If (16.8 Rode + .Regnum + .Defer) AND ZX°FF°) EQL %X°8F°) THEN 
31 1 14 
3 1 17 ! We get here if there is an immediate-mode operand. 
; 1645 17 ! We now read the value us the EXPRESSION syntax 
3 1948 \f 4 ! of the current language and convert it to the type 
3 164 1755 : required by this instruction. 
3 1oe8 17 § ! Short literals are also handled here. These can be 
3 164 17 ! differentiated from other immediate-mode operands 
3 19 0 17 ! by exgatatng the high word of R_Mode (set to %C'S' 
; 1 : 1p :_ for short Literals, and 0 or ZC°l" otherwise). 
3 ig 198 LOCAL ’ 
3 1638 1706 Val_desc_target : REF DBGSVALDESC, : 
3; 1655 176 Val_desc_source : REF DBGSVALDESC ' 
; 1696 1764 vms-desc-source : BLOCKE 8, BYTE i. i 
3 et 1208 vms_desc_target : BLOCKE 8, BYTE J; ! 
3 1659 1763 IF .R_ Mode<16,8,0> EQLU %C'S' THEN 
13 1660 1768 SELECTONE .Context OF 
+3 1661 1797 ET 
3 196 1770 context_f,context_d 
3 166 1771 context_g,context_hJ: 
3 1664 1776 context = context_f; 
3; 1665 177 COTHERWISE): 
; 128 1774 context = context_l; 
3 166 1775 TES; 
3; 1668 Ieee 
3 5 34 177 'ee 
3; 1670 1778 ! Set up the source 
3 1671 177 leo 
: 1ore 17 vms_desc_source(dsc$b_class = dsc$k_class_s; ' A008 
3 167 1781 vms_desc_sourceLdsc$b_dtype = DSCSK_BTYPE_T; ' a008 
3 1676 17 ¢ vms_desc_source(dsc$w_length]_ = -Length; } tt 
: 107? Vy vms_desc_sourceldsc$a_pointer] = .Buffer; ! add 
we Oe Phi sas toes 
3 ! Set up the targe 
3 1899 17 eo 
3 1680 17 vms_desc_target(dsc$b_class = dsc$k_class_s; 4 
3: 1681 17 vms_desc_targetLdsc$b_dtype = -Data_Type -contextd; } 
3 1 1790 vms_desc_target(dsc$w_length] = .Data_Sizel.context]; ! 
3 ; 123) vms_desc_target(dsc$a_pointer] = Op_Buffer; : 
3 1685 1738 Op_Buf fer 0. 032.0) = 0; ! Clear high operand bytes 
31 1794 Op_Bufferl4.0,52.0) = 0; ! to extend to octaword value 
3 3 1795 Op_Buffer : = 0; ; 
: 1688 1796 Op-Bufferl12,6,32,0) = 6; 
: ton) 1798 Val_desc_source = dbg$make_val_desc( vms_desc_source, dbg$k_v_value_desc );! Convert to a value 
3 169 i 'e+ 
: 169? } : Test for negatives and fix things up 
3 1695 t i DBGCONV_TEXT_VALUE does not accept the negative sign 
3: 16 1 ! in the value, but it requires a flag in the value 
3; 169 1805 ! descriptor. 


DBGENCDEC 1$-$e0r}9b4 90:26:49 YANNT Bligs=32 V4 m7 Page Bh 
lee 


if ¢ CHSRCHAR( .Val_desc_sourcel DBGSL_VALUE_POINTER J] ) EQL %C'~" 


S33 


DBGSL_VALUE 
Val-desc_sourcel DBGS$W-VALUE 
vat desc_sourcel DBG$W-VALUE 


R “ee .desc_source( D 


8 
-Val-desc_sourcel DB 


"BEGIN 
Val_desc_source ‘7 
ODE } = TOREN K “NEGCONST; 


POINTE G$L_VALUE_POINTER } +1 
d Ton 4 G$W_ VALUELENGTH - 


SII 


.vms_desc ~targettdsc$b_ dtype)); i 


Lee 
! Move the converted value in 
! normall tos is a pirocey in 0p. buffer but in the case 
i of negative numbers the ° 


rout + eee change the 


| pointer rather than move the data 


7 5 14 

708 § | _Send in the right radix so it will do the right conversion 

71 8 val _desc_sourcel pecsy. VALUE_TOKENCODE J] = 

ay 3 “(SEL ECTONE -DBGS$GB_RADIXCOBGSB_RADIX_INPUT) OF 

ig 1 SaGSK BINARY] + Toxewee -BIN. INTEGER; 

714 ¢ DBGSK_OCTAL] : TOKEN Nek OCT = {NTEGER; 

715 DBGSK_HEX] : TOKENSK_HEX eINTEGER; 

rie & baGsK DECIMAL] : TOKENSK- INT TEGER 

At 5 for THEROISE : $DBG_ERROR( 'DBGENCDEC\PARSER_OPERAND unexpected radix"); 
719 § : 

720 8 'e¢ 

1 3 | Make the target value descriptor 

f 5 1 iol dene. herent = dbgSmake_val_desc( vms_desc_target, dbg$k_value_desc ); 
725 j Val_desc_target = DBGSCONV_TEXT_VALUE( .Val_desc apounete ! Convert the number 
7 $ -Val-desc_tar ; 
7 

728 

729 

7 

g 1 

438 

7 

735 


Ny ee thet ah NH aN abe 4 


CHSMOVE ( evel reese gt DBGS$W YALE LENGTH J 


Be Se Se Se Oe Ge Se Se Se Se Ge Se Se Se Ge BF Se Se Ge SS Se Ge Ge Se FSF Ge Ge Ge FE Se SE Ss BH SS Se Se Ss Se Ss Ss Se Se Se SF Se SESE Ss Se Ss Se Se Se Se See 
ee ed a ed ced ed ce ee ced ed ce cee cee ce ed ce ce ce ae cee ee ce ced ce ee ed ceed ed ae ced ee ceed ce ce cee ce ee ce cee ce cee ee ce a ce ee ce ce ce ce ee eee eed ee a ed 


ed ce ce ed ee ed ed ce ce ced eed ed ce ce ce et ced ee cet ce ce ee ce ce ee ce ce ce ce ce ce ee ce ce cc ce ce ce ce ee eB ce ce ee ce ee ce ce ce ed eed ed ed ed ed oe ed 
WWIWAILAA APPIN PINIPUNIPYDD 9 SS Se 
OOo wa 
PDQ PAPA DPA AAD DAP PASSA PSSTSTS ISIS TSIESIOSISIESION OP OP OP OP OP OP UTUTUTIUIUIUION OP OP OP UIUIU 


; 
136 4 -Val_desc -target DBGSL_VALUE_POINTER J ), 
738 i eptat Op. buffer’) ); 
7 IF (. “R phogesié. QL S*) OR R Roge<ié 8,0> EQL 0) AN 
740 3 Buf fe 6° AY Lats tssu xe'40') AN Op. but ferts.0 0,32, ‘03 EQL 0) AND 
741 £,0 ontext cor” context_b) OR “y AAR. ear ext_b 
rg 50 (.Context EQL context w) OR (.Context EQL st oe —~ oR 
74 51 (.Context EQL context_ “{) OR (.Context EQL context_q))) THEN 
744 26 BEGIN 
Me az ett Red t EQL context. f) THE 
mS 55 erand_value = ROT(T. -dgerend Nelue MOR %X°4000'),-4); 
| 28 IF (. arene Value GTRU 2X TREN Report. Error; 
re? 2 te ore_Operand( .EnCode,Operand_Value,1); 
H 38 ELSE 
7 § Store_Operand(.EnCode,UPLIT BYTE(ZX°8F*),1) 
754 Store_Operand( .EnCode,Operand_ Value,.Data_ Size. Context)); 


9 
b-sep- 4 00:24:49 - - 
pe, | ~3007 138% 90:98:43 OtaUG. She DBGENC DES 64551 Page 83 
LEAVE scan; 
END; ; 
H ! End Addr. 


DBsENeDEC ifoseo-t9gs 00:24:49 AKAD BL ing= sz W4.0-742 rose At 


num wit 15) AND (<R Mode NEQ %X"80"S AND (.R _Mode NEQ %X°90") ! Regnum of 15 means PC relat 
. i Absolute and immediate 


THEN (-Regnut = .Address - (T + i al + -EncodeCEnc- Final_Address 


-EnCodeCEnc_Output_Length 


FeRss 


R_Mode = .R_Mode + .Defer + - Regnum; 
Store “operand. EnCode,R_Mode, 
store. Operand(. “Encode ,Addresi Le 


S 


Bteek’ *scan' 


Se 


3 1 1 '¢ 

3 7 1 i Here if we have an register/ Lacement operand, 

: ie } : or an absolute address Gout it or inplictt). 

3; 17 1 F NOT Parse ahxoression<el. Buffer on th, Address) THEN SIGNAL(DBG$_INVEXPR, 1, ..Operand_number); 

3 1202 ; f if (Check_Register(.Address) GEQ 05° SIGNAL (DBG$ INVEXPR, 1, ..Operand_ number); 

5 176 187 IF (.R.Mode EQL %X°100") THEN *<address> 

3 1708 } ie (IF (.Address GEQU tx db00c00R's THEN %2X°90° ELSE %x° ieBeys 

3 1358 1 ig IF .Dis Lgeenens size_needed rHey 'AQ0S We need fo chose a disp 
; Hae ! i R_ (IF (.Régnum EQL 15) ia ; rc relative displacemen 
3 177 1880 5 (SELECTONE .Address - A005 Calculate the offset wi 
3 1774 1881 (1 + *EncodeCEnc _Final_Address] + ‘A005 the operand since we do 
3 et? : Bs = vEntodelEne Output_Length]) OF is 33 

3 1338 1 =43) 0 1383: Zx"AO' 'a00S Byte Note shat the tab 
3 1778 1885 766 te 9]: BX" CO° ;A005 Word take the Lack of 
3 17 1 OTHERWISE %x 3 'A005 Long calculation into 
3 17 1 TES) 1A005 

3; 1781 1888 4 ELSE 

3; 17 4 1889 (SELECTONE .Address OF j A083 

3; 178 1890 ET 'a005 

3 17 1891 Rit 9 187} ZX°AO'; ‘A005 Byte 

3 1785 1936 =3 .. 10 767): %x'CO'; 'a005 Word 

3 17 193 OTHERWISE): %X"EO'; ‘A005 Long 

3 iy } iy TES) 'a005 

: 1789 1836 2 Length = (IF Hen di Mode EQL 2X°90") OR (.R_Mode EQL %Xx'80")) ! Long operand? 

3 1 1998 3 1°((.R_Mode-%X'A0")/2x' 20°)) 

3; 1 18 4 

3 1 1 & 

3 7 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

3: 1 j 

31 1 

3; 1 1 

3 1 4 

31 1 

3 7 1 

31 1 

3 3 1 

3 7 j 

3 1 1 


SeSSransesassabasss 


EnCod odefenc. Input putter] © sEntodettne: Input -pufter) ¢ + .Parsed; 
EnCodelEnc_Input_Length EnCodeLEnc_ qinbut. Length -Parsed: 
319 IF “Ene od deCEnc _lfiput Sr engthi GTR 
aig EncodetEnc. Input putter} = Snot. Input putter? ¢ 
at proce Enc_Input_Length] = .EnCodelEnc_Input_Length 
915 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


53 49 47 | iz & 119F P.AAT: .ASCII \BWLGIS\ : 
3 ef) 4} 30 35 43 45 44 $3 rt: 45 47 4 4 é 11A5 P.AAU: ASCII \)DBGENCDEC\<92>\PARSER_OPERAND unexpect\  ; 
8 6 44 4E 41 52 45 50 4F SF 52 11B4 ; 


9 
DBGENGREC ibrfepn1964 00:24:49 YANEHT BL ig8=32 v4. 0-742 Page 7 
4 a 11C s 
mee ee A se Od Wt : 
MODE_CHAR= P.AAT 


«PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 PARSE_OPERAND: 
~ gVORD Saye RZ -RS.R4 RS .RGR7.RB.RI-RIO,R11 


; 20 ¢ SUBL ; 
08 AC OD MOVL CONFEXT. RS : 

5 D1 CMPL oR, #11 : 

C BLSS : 

oc 1 CMPL =-RS, #12 : 

E 14 0001 BGTR 13 : 

0¢ AC DD 0001 PUSHL OPERAND NUMBER : 

OA DD 0001 PUSHL #1 ; 

04 AC DD 0001 PUSHL ENCODE ; 

El AF FB 18 CALLS #3, PARSE_OPERAND : 
OD D4 1 18: MPL oR, «#13 F 

0 9 00024 BLSS F 

OE D1 00 $ CMPL «=soRS, #14 ; 

B 14 0 BGTR : 

0c AC DD 8 PUSHL  OPERAND_NUMBER : 

02 0D PUSHL #2 F 

04 aC DD 000 PUSHL ENCODE ; 

co oA 03 FB CALLS #3, PARSE_OPERAND : 
oc ac OD PUSHL  OPERAND_NOMBER ; 

7E 04 A CLRL. -=( SP) : 

04 AC OD C PUSHL ENCODE : 

BD AF 0 FB F CALLS a3. PARSE_OPERAND F 
0D D1 00043 CMPL =o. #13 F 

01 13 000 BEQL 46s F 

04 0004 RET F 

0c AC DD 2s: PUSHL  OPERAND_NUMBER ; 

7E 04 C CLRL. = (SP) ; 

04 AC DD PUSHL ENCODE : 

AB OAF 0 Fe CALLS #3, PARSE_OPERAND : 
OC BC 06 00 é 38: INCL  @OPERAND_NUMBER : 

€ D PUSHL #44 : 

52 04 AC 00 00058 MOVL ENCODE, R2 : 

DD O005F PUSHL R : 

0000v CF FB 00061 CALLS #2, SCAN_OPERAND : 
0 +! yt 106 MOVL R PARSED : 

GE 0 00065 MOVE PARSED. LENGTH : 

04 Ae 10 000¢ MOVL  4(R2), BUFFER : 

ie D076 4s: Ist NGTA : 

DC § 

20 FF OA ie CHPB  =I(LENGTH)CBUFFER], #32 ; 

DC : 

56 p D¢ DECL NGTH ; 

fF d Jt BRB : 

56 DS OO07F 5S: TSTL LENGTH : 


NCDEC b- ep- 226: AX-11 Bliss-32 V4.0-7 
ta 12-SR~}382 PS: 95:87 «— HAKENL Shigeede Vee0- 245 Page 88 

12 16 GTR = 6$ 3 : 
0c f DD SHL Q0PERAND NUMBER : 
DD PUSHL @ ; 
00028268 f DD PUSHE #164456 : 
000000006 00 FB ALLS #3, LIBSSIGNAL : 
08 ar D 68: LAL = R_AOD ; 
” H cf tg oT pr APEREUT Liat ED D : 
SD OSF FF nea CHP6 sti NGTH) CBOFFERI~ OOS : 
00 BRW 14$ : 
52 7$: BOVE sgeTH. START : 
58S FF oo 88: CHEB -1(START)CBUFFER], #91 : 
50 56 36 SUBL3. START, LENGTH, RO F 
FF AO OF BA PUSHAB =1(ROS : 
6247 9F O00E PUSHAB (START) CBUFFERJ ; 
0000v CF 02 F C CALLS #2, PARSE_REGISTER F 
ag D rd MOVL RO. REGNUM : 
5 04 AE p ¢ MOVL REGNUM, R3 : 
1 CD BGEG 69 : 
0C BC DD O00CF PUSHL  @0PERAND_NUMBER : 
1 0D oe PUSHL : 
00028278 8F OD PUSHL #164472 : 
000000006 é DA CALLS #3, LIBSSIGNAL : 
F 1) E1 9$: CMPL RS, #1 : 
12 19 O00E4 BLSS : 
0C BC OD g PUSHL @0PERAND_NUMBER : 
1 DD OO00E PUSHL # : 
00028270 8F ODD EB PUSHL #164464 : 
000000006 FB OOOF CALLS @ L 1BSS1GNAL : 
6 FF ? r8 108: ROVAB iir ), LENGTH ; 
0¢ BC ODD OFF PUSHL PERAND_NUMBER ; 
1 DD 001 PUSHL @# : 
00028268 8F DD 001 PUSHL #164456 F 
a 3 09 190 118: ROE? ORS” HABE REO AE GNU ; 
04 AE 00000060 BF C 113 ADDL2 #64, REGNUM” F 
1 bp 118 PUSHL ; 
08 AE 9F 0011 5 RE : 
AC OD 001 PUSHL ENCODE : 
v CF FB 001 CALLS #3, STORE _OPERAND : 
0088 AE f 1 MNEGL #1. R_MOD : 
12¢ BRB : 
02 F5 OO1fE 12$:  SOBGTR START, 13$ F 
1 001 BRB 4$ ; 
FF 1 001 138: BRW : 
28 FF nbs? } 148: CAPR -1(LENGTH)CBUFFER], #43 : 
08 80 of A 001 MOVZBL #128, R_MODE : 
5 6 F5 001 SOBGTR tenetHn tee 3 
0c ¢ DD 0014 PUSHL ERAND_NUMBER : 
00028268 BF bp Soleh Pus 9164656 : 
ay : 

000000006 00 3 FB 00150 CALLS #3, LIBSSIGNAL 


9 


BBGENEREC ISo$eoctogs 00:24? YaUetY OL aga 8e Vans 


29 FF Ab& 0157 158: (NPB =I (LENGTH)CBUFFERI, #41 
00F 8 f BRw 
52 5 001 16: MOVL LENGTH, START 
28 7 nae : tf 1 che =1(START)CBUFFERI, #40 
50 56 5 01 UBL3_ START, LENGTH, RO 
FF AQ SF 001 SHAB =1(R 
6247 9F 001 PUSHAB (START) (BUFFER 
oogov CF 03 Fe 001 CALLS #2, PARSE REGISTER 
3 06 AE 00 001 MOVE NUM, R3 
F 33 0 001 CMPL ORS, ai 
001 BNEG 6 198 
Oc BC DD 001 PUSHL  @0PERAND_NUMBER 
DD 001 PUSHL #1 
00028270 BF DD 0018F PUSHL #164464 
000000006 00 3 FB 00195 CALLS #3, LIBSSIGNAL 
08 AE 0 D019C 198: TSTL  R_MODE 
3 019F BLEG 298 
D5 OO1A TSTL OR 
1 DOTA BGEG 208 
OC BC DD OOIA PUSHL  @OPERAND_NUMBER 
0D 001 PUSHL #1 
00028278 8F DD QOIAA PUSHL #164472 
000000006 3 Fe 001 CALLS #3, LIBSSIGNAL 
38 D1 0187 208: CHPL NOEXED_REGNUM, R3 
00000080 8F 08 Ag j dore¢ CMPL = R_MODE, #128 
12 12 001C BNEG 
O¢ BE OD O01E6 PUSHL —@PERAND_NUMBER 
1 0D O01C PUSHL 
00026280 BF 0 O0IC8 PUSH #164480 
000000006 FB 0010 CALLS #3, LIBSSIGNAL 
6 fF OA D01D8 218:  =MOVAB -1(R2), LENGTH 
7 D01D¢ BRB «318 
33 03 OO1DE 228: sik 
OTE BGEG 9 23$ 
0c BC 0D 001 PUSHL ERAND_NUMBER 
1 DD OO1E PUSHL 
00028278 8F DD OOIE PUSHL #166472 
000000006 FB OOTE CALLS #3, LIBSSIGNAL 
1 OIF 238: CMPL TART, #1 
08 AE 60 8F 9A 001F9 ROVZBL #96, R_ODE 
E11 01F ar 
2p 91 00200 248: CnPB (BUFFER), 45 
A 4! BNEQ 
02 g ot 0 cnet sett #2 
08 70 8F 9A OOZ0A MOVZBL #112, R_MODE 
3 08 i p og 258: ROVER bE.“ R4 
53 p 021 CHPL —JNDEXED_REGNUM, R3 
B 12 0001 BNEG 26 
00000070 8F D1 021A CMPL ORG, #112 


bacencgec iSsto-19ee o9:26:4?  yarety Bige=sz v4sO-742 | Page 


oc 


PUSH SPERAND_NUMBER 


oo°o— 
-owouu00oNn 


#164480 
Wits #3, 1285 1GNAL 
EGNUM 


278: MOVAB«=1(R2) TH 
pers NOVEBL 8160+ & Hebe 


08 AE A0 
MOVL #1, BISPLACEMENT_SIZE_NEEDED 


> m 
nn 
wn 
PH (OOOO YF WOOO — 
"UO 
SR 


© De Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ss Ge Se Se Se 
— eed et Dd ed eh ed a 2 et 

wn 

uw = WmnN— 


0 AHS oes, Bern ter, am 
fh URE on, HH 
08 TAF 3 Goss) Sos: TTL ove 
56 05 Gosse sis: SIL (ehcra 
40 8F 7 33 A CMPB {SYFFER). #64 3 
§ BNEQ : 
§ 0 3 DECL LENGTH : 1657 
D 6 INCL BUFFER : 1658 
m BGS ge fh. toe 1 
g 04 69 363: CLRAL DEFER : 1662 
00000080 &F —- 8 eo Fo eet Agee 
; ° $ BNEQ Ree : 
Se 08 Oters = TTL Eucrs 1666 
0c C OD 7c PUSHL ee ee 
1 OO 7F PUSHL # 
nooo00es 99 20028210 H BD O0h) = PUSH 164368 
50 33 04 Ar fe 34$ Abou} REGNUM, i RO 1667 
04 AE 3 3 ADDL pcceR. RO, REGNUM 
d 98 35$ BRB 46$ 1668 
$6 08 Obsen Sob: Fark ENors is 
0c . +4 ; over PERAND_NUMBER 
00028268 F OD A PUSHL #164456 $ 
pence SSE SES su, EAM eet URST ‘var 
1 12 0038 ened gis 7 
g B DECL ‘ NGTH 3 16st 
wohs 14 90988 nu BIRR 1682 
5 8 $8: TSTL R 
fF C BGTR $ 
ts 9 TSTL ? FER 1683 
C BNEQ § 
HR a 
op Ae 80 BE OA GOSEA os: RvZeL FIER, mone : 1684 


ifosen-190e 0:24:49 YUH. eLtgs82 ve0-74g Page 8 
basencpec 


3 167 
Ry STS : 1628 
00ge at bg 418: ERPL b NGTH, #2 
e i D Chee Hturren, #94 i. 
SE SF 01 ‘ fo : 
428 STL Re 
BNEG 48S 
E STL DEER fee 
3 DOSER BNEG $4 ; 
8 DD OOSEA PUSH LENGTH ; 
sees ? PF OOSEE CALLS i PARSE_REGISTER 
f ; 
Foe 9 ' peed 45$ ; 1695 
pass: TTL sem 
eh Rta, Hes Mec : 1988 
; viBL #1 samen : 
OB AE a FF Rov 1, GISPLACEMENT_S1ZE_ £1199 
"OBR a: Be in : 
? Db dosoe CALLS #3, PARSE_REGISTER 
F g Fe ROVAB 80(RO)” REGNUM 1705 
a 70 Ot BD 00818 ses: PUSME 
08 HE 3 QOSIA PUSHAB REGNUM ‘am 
at H 3b 7s: CURL (BUFFER), MODE_CHARC INDEX] ote 
e 1 $ EQ 
00000000'EF 42 4 0 ; it, i een : He 
H a fraps ate ait 
: 3 i PUSHL  SOPERAND_NUMBER 
so HE BB eRe PUSHE #164456 poe 
00028268 8F DD i 4 CALLS #3, LIBSSIGNAL ns 
eee gL Bus se: Bs ii 
2 ie dees TST R_RODE 
os t BGTR «538 ; 
§ fi TSTL DEFER pole 
83 Be BNEG ve 
© of oo8ee sos: Fei RRO im 
oF 82 gh 1 Mig i 
F 9A 06 MOVZBL a 0. RmoD 18? 
Oe Ae OO p ‘ $18: ASHE #3.” INDEX, RO : s 
+! ; DL2 ED ri 
50 08 i 6 C fi cERL DISPLACEMENT _SIZE_NEED 19 
i 0370 528:  TSTL R_RODE 
Oo 8 BGR 538 ; 
OE co 
3 i fi CRPEGBUFFER), #35 
23 


voe=000 


50 


FF73 52 


ta 


o 
= 


eSSBSE bined php highih ae ei Ott ety tye tye Bt Pe rh eA ty Be ty rt pet > et ome pen 
A> RDO orem a Moser = Oe MOR AMNDAMDOWOOMWFR MN BMIOMAVNRNOONM AW 


Oo 
> 


)3E3 


So 
fers) 


ee ee) 


eon WOoowrc 


-o-w + eto eh ppm r+ > ob 04 4 > fre Senta 4 —OIW* QOONGIIT9 nC 99 NSO ONO 
SSN SSIS LSa2SAAm MORO ON Ff $W "0" DI 9 9 | “GO OUNDOOomMmor—uw 


ibegeoe) 


538: 


AMMEN 

COorIM Mm CO 
au 
ow 
PAW 


eet et 


a 
— 
= 


PROD NOW OARNMO UMVIM COD 


DSS E> SS 


8c VBi46:87 — WoEaUG. SkeSbac 


mr 


rH 
DE_CHARE INDEX], RO 
tat 4 MODE 
#15, REGNUM 
Bur FER 
LENGTH, 57$ 
a PERAND_NUMBER 
#164456 
#5, #1, INDEX, 48$ 
PERAND_NUMBER 


#164488 
#3, LIBSSIGNAL 
REGNUM, R_MODE, RO 


DEF 
RO, #143 


3 § 

5 

R11 

R_MODE+2, #83 
60$ 

R11 

RS, #5 

59$ 


RS, #8 
59$ 
#5, CONTEXT 


DESC“ SOURCE +4 
TARGET+3 


R 
EER). VS _DESC_TA 
ECR8), VMS-DESC-TA 

vMS_DESC_ TARGET 


a 7 
CONTEXT 6 


+2D 


VOreOOo these sp-19be $5:46:81  Fogaus. ere Soagencoée 033; 1 Page 93 


62$ mPB RO, #8 : 1822 
a ; i “2 SOL ef RO ; 
RB , : 
10 63S: Oree #16 + 1823 
BNEQ § ; 
50 > ROVL ae RO 3 
OA Q 64%: CMPB a #10 + 1824 
50 ; BONE $ RO ; 
« i BRB os ; 
00000000° f oF 65S: PUSHAB AAU ; 1825 
000000006 0 — © pe CALLS F070 
8 09 3 5 66$: mOVW RO, He sDESC SOURCE) F 1819 
7 a Ke Bh ett fa aie *beses + —_ 
CALLS #2, DBGSMAKE VA C ; 
nw ” 12 ge MOVZBL VMS_DESC_TARGET¢2, -(SP + 1835 
ag mit Yat Bc datee ee: 
A DBGSCONV. TEXT_V : 
00000000" EF metned |’ 88 16 AD 8 ‘ Te 20% VAL DESC CY TARGET). Ao (VAL -DESC_TARGET), =; 1845 
BLBS RIT wh : 1857 
Spake: B fee pete = 
3F 00000000° FF of CMPL OP BUFFER, #63 + 1848 
F 1A BGTRU 1$ 3 
00000000' EF 0b TSTL OP BUFFER+4 : 
7 1 BNEQ 1§ ; 
8 p TSTL Rg + 1849 
19 D BEQL 67S : 
09 58 p CMPL Rg rT) : 
14 DF BEL «=s«67$ ; 
01 a ° E1 CMPL Rg "1 ; 1850 
OA D Ee Peek H $ #10 : 
A 1 Eg BEQL aE : 
02 b EB CMPL RB, #2 ; 1851 
03 f Poet ¢ 83 ; 
A ? ¢ BNEQ Re : 
05 8 p F 67$: CHL oh as ; 1854 
00000000° FA XORL3 384 OPERAND VALUE : 1855 
00000000° 2? 5a ene | H ie ROTL a6, 86 . OPERAN pyALUE ; 
F 00000000' Ff pi OF 68S: CHP Op and “VALUE, # ; 1856 
0c f pp 18 69: PUSH PERAND_NUMBER : 
1 f PUSHL #164368 : 
000000006 00 SeseeetS 3 rB CALLS a LIBSSIGNAL : 
01 0D B70$: PUSHL #1 : 1857 


ifoseo-1964 90:24:42 MCN Ota Be V4 th743 
zs 


ENCODE 

#3, STORE_OPERAND 
DATA SIZECR8), -(SP) 
QPERAND VALUE 


 ~ 
ab 
an 


epaaas 4 EF 


* epganuag:er 
oc 


= 
om y>mo— 


_u ™N 


i. -(SP) 
#4, << aaah 


SOPERAND NUMBER 
#164496 

#3 L 1BSS1GNAL 
ADDRESS. R 


. - CHECK_REGISTER 


oc 
00028290 
oc 


000000006 
0000v 


oc 
0028290 
0000006 00 — 
0000100 08 
40000000 


75$ 
acces naataaes 


#164496 
#3, bess igun 
R MODE, #256 


SSM We FS OLS NUNIT S NVI NFP NS MO 
~“ 
oo 
bed 


$ 
R2, #1073741824 
#144, RO 
#224, RO 
MODE 
DISPLACEMENT_SIZE_NEEDED, 86$ 
REGNUM, #15 


90 
EO 


04 


50 10 8 Boe 1ecROD RO 
RO, RO 

R P #-127 

R2, #128 

R2, #-32766 


Reg #32769 


FFFFFF81 
00000080 
FFFF8002 
00008001 


2 
S 


$ 
R2, #-128 
AS war 


BGTR 
MOVZBL # 90. RO 
BRB 8 


FFFFFF8O 
0000007F 


+4: 


29 5 5 == 


o 
Bee Se Se Se Se Ge Sse Se Fe Se Se Ge Ge Fe Ge Ge Se Se Ge Fe Ve Ge Vs Be Se Fe Be Se Se Ge Be Se Be Se Se Se Be Se Se Se Be Fe SoBe Se Se Se Se Se Se Se Se Se Sete : 


| 
| 
! 
: 
| 
| 
| 
| 
| 
/ 


1 
2 
E 
9 
‘ 
C 
: 
1 
: 


aE 
$ 
i 
i 
i 
45 
i 
i 
| 

5 


eens 


3; Routine Size: 


FFFF8000 
00007F FF 


08 
00000090 
00000080 


56 


00000080 
00000090 


52 
50 oc 
50 


1721 bytes, 


i 


Routine Base: 


2 
co fF 
0 

0 
08 A 

: 

4 

FF60 ; 
.f 
: 
17 

046 A 
10 A 
08 A 
5 
X 
04 BE4O 
01 

i i 
10 Ae 
04 ‘ 
“ e 
§& 

046 =A 
6 
DBGSCODE 


“$e0 1984 93: 16:31 


DVNWIAMNOVNUMVIOO 
@ o oo 
~o on 
cao owen 


WOOO $9 $9 $9710 0-9 9 $990 O-" 0-9 9 


oO 
So 
oe 


on 


OM MWO- OW § HW" "OOM ON)" "OOF | > FS O— 


CMP 


AX-11 
DEBUG. g $D a 


af #-32768 
#32767 


ia 


#128 

#4, LENGTH 

e OCR), RO 
“#1, LENGTH 

R NUM, rit: 

Ri, #128 

Ri, #144 
508 


RO 
T6cRO; ENGTH, R2 


Sieh i RESS 


Ni NOMEROI™ R_MODE 
a 


PARSED, on00) 
SED, (RO) 


Oe Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Fe Se Se Be Be Se Se Be Se Be Be Se Se Se Se Be Se Se Be Se Se Be Se Be Fe Be 


—> Sd bd 


RNIN) 2 3 


WR QOONAULS WI O 


UENO OONOUE 


eB ee ak eh dB ed A eh ed ed a ad de et 


BEERSEESEE Ese 


a 9 

16-Sep-1984 00:24:49 AX-11 Bliss-32 V4.0-74 

12-868-1 382 90:90:83 DEBUG. SRCSDBGENCDEC.39; 1 
ROUT EE ge se nexpress ion(type.string, Length result) = 


Routine Get_Result(Input_Desc ,Result,Type) = 
BEGIN 


Routine Handler(sig_args,mch_args) 
BEGI salt one 


MAP ach args : REF BLOCKE BYTE); 
EXTERNAL ROUTINE Sys$Unwind : Addressing_Mode(General); 
ach ergs(ch ist mch_savr0) = 0; 


S ( 
RETURN sok sine tenes 
END; ! End of routine ‘handler’ 


a He ab ne at a 


WARES PWUIWNNIN— 


0000 00000 HANDLER:.WORD Save nothing 
AC 000. MOVL ARGS, R 


50 8 D0 ncH 
C AO 04 38 CLRL 12(RO) 
3 C 000 CLRQ =(SP) 
000000006 98 02 FB 000 CALLS #2, SYSSUNWIND 
0 01 6? BR nove #1, RO 


22 bytes, Routine Base: DBGSCODE + 11FE 


Ww 


WN—o& 


BUILTIN FP; 
LOCAL valdesc : REF dbg$valdesc; 


FP = Handler; 
IF (Type LSS 0) THEN 
BEGIN 


! Type < 0 means we want an address expression 


IF NOT ppcsNparseAddress(. Input dese valdesc 
dbg$k_default>token$k_term_none,0) THEN RETURN False; 


IF NOT DBGSPrim_To_Val(.valdesc,dbg$k_v_value_desc,valdesc) 
THEN RETURN False; 


Result = .valdesc(dbg$l_value_pointer); 
ELSE 


EXTERNAL dbg$gl_deposit_token; 
LOCAL vas dese 7 BLOCK re Byte): 


! Type > 0 means we want a value expression 


IF NOT DBGSNparse_Expression(.Input_Desc,dbg$k_ default, 
valdedc. tokenSk. term nofe.0) THEN RETURN False; 


ODODOOOOOO0O 
wm 


RERRERELEE 


ANEW 0 OOVNOAULSWIN OO 


ea ee ce cee ee eB eB ee ed aD wen ed eB oe eh ed ad ed 8 dh ed ed eh 


PN tt tt tt 


wODOOO0O0D 
PAPAIN 


DBsENGREC ifoseort9ae 00:24:42 MCN ating ae V4 te74e Pase 8% 


vms _ te b.class Gack. it: $; 


vms_descldsc$b_dtype Data. Type); 
vms_descidsc$w_length] Data 33 zeL.Typed; 
vms_descldscS$a_pointer) = “Op. Buffer 


Op ut fertd. 8. 3: 8} = g: ! Clear nigh operand bytes 


op ceiver ! to extend to quad value 
DBGSCOVER_Dx “bXC.valdese, 
Snake. -val_desc(vms_desc ,dbg$k_v_value_desc), 


: DBGSEval_Lang_ operator {dbotal zteposit.. token,.valdesc, 
: dbgSmake_Val_desc(vms_desc ,dbg$k_V_value_desc)); 


' Convert the number 


w 


WR —ODONP MIS UINV— 


Delete because if follows lL 


cab at at ne ns a a tt 


ss. 


ee ee 
ono 
oF 

STUY Po ot ot ot et ot te ot ot 


END 
RETURN "louse 
END; ! End of routine ‘get_Result' 


eEXTRN DBGSGL_DEPOSIT_TOKEN 
000C 00000 GET_RESULT: 


<WORD Save R2,R3 : 1919 
53 00000000° FF 9 HOVAR OP_BUFFER, R3 ; 
6p DB OA 5 MOVAB HANDLER, (FP) : 19 
2 OC ac OD MOVL TYPE, R2 : 1935 
31 1 BGEG : 
7C CLRQ = = (SP) : 1939 
01 DD PUSHL #1 : 
o¢ AE OF PUSHAB VALDESC : 
4 AC DD PUSHL INPUT _DESC F 
000000006 90 3 Fe CALLS HE REGSNPARSE ADDRESS 3 
é pp PUSHL + 1942 
7E 83 F OA MOVZBL #131, (SP) F 
08 AE DD PUSHL VALDESC ; 
000000006 H 0 FB CALLS 3, GSPRIM_TO_VAL ; 
0 3 D MOVL ee + 1945 
08 BC 18 «OA MOVL RO), @RESULT : 
4C BRB ; 1935 
7E 7C CLRQ otsp ) : 1954 
08 AF OF PUSHAB VALDESC 
01 DD PUSHL #1 : 
04 AC DD PUSHL INPUT son ; 
000000006 0 F CALLS tf GSNPARSE_EXPRESSION ; 
7 ke vB : 1957 
AE 99900000 EF MOVE ——DATA_TY » ms _DESC : 19 8 
AE "ERG MOVZBW DATA’ uy etn SPDESC : 19 
8 AE E MOVAB BOF ER, die Dest > 196 
i it it be et 
7E 83 8F oh ROVIBL a 1, =(SP) > 1965 
C AE F PUSHAB VMS_bES F 
000000006 00 02 FB CALLS DBGSMAKE_VAL_DESC F 


GENCDEC 16-50 -1984 126:49 AX<11 Bliss-32 V4.0-74 Page 98 
yOe 000 12-800-} 382 90:90:89 DEBUG. SRCID BcENYbEso33;1 . (285 
os at BD PUSH RaLoEsc + 1964 
000000006 5 F CALLS #3, DBGSCOVER_DX_DXx F 
8 ' 06 i 2 ROVE fi, RO Phe 1971 
ps $7 38: CLRL = RO : 1972 
4 RET 3 
3; Routine Size: 154 bytes, Routine Base: DBGSCODE + 1214 
3; 1867 197 
3 3 1333 CAL 
: Hs 1975 Mark,Status, 
. | Y 1278 Term. Char : BYTE UNSIGN Eis 
3; 187 197 Term, Addr : REF VECTOR C1,BYTE), 
s ; ie 1378 Local_Desc : BLOCK (8,BYTE; 
: 1874 1388 Local_Desc(Cdsc$b_class = dsc$k_class -§ 
3; 1875 1981 Local-Descldsc$b_dtype = = dock. ety e_ 
37 6 19 ; Local-Desc(dsc$w_length) ength 
: ; 78 13 Local_Descldsc$a_ “alto = oom ng: 
:1 1985 Mark = dbgSpush_tenpm 
3; 1880 19 core Adare ott "fe - lathe 
3 rt 19 Term_Char_= -Term artoa, 
3 1 ¢ 1988 Term_Addr 
: 188 1989 Status = et LR Result (Local -Desc,.Result,.Type); 
3; 1884 1990 tore Addrl0 -Term_Char; 
; ieee 133) RefuRn ~fenpnen( ark) ; 
: 1889 1998 1 = ae ame 
003C 00000 PARSE_EXPRESSION: 
SE A ; ve 2. oR3,R4,R5 : 1916 
02 AE 01 MOV #270, LOCAL DESC +2 > 1981 
bE MOVW LENGTH, LOCAL_DESC : 198 
6s A MOVL a LOCAL" DESC +4 3: 198 
000000006 Q CALLS #0, D BGSPUSH_ TEMPMEM ; 198 
52 08 A 0c ADDL3 LENGTH, STRING, TERM_ADDR : 1986 
53 MOVB a DDR) ERM_ CHAR : 1987 
6 MOVB RM ADDR) ; 1988 
0% PUSHL : 1989 
PUSHL ree T 3 
0. PUSHAB LOCAL_DESC 3 
FF2E gf CALLS i . GET_RESULT 3 
4 MOVL R ATU é 
62 VB  TERM_CHAR, (TERM_ADDR) : 1990 
000000006 CALLS at bRGSP P_TEMPMER ae 
98 MOVL srhtue : 1992 


vacenspe iesheo3Hs 0:96:42 YAESDE SLUSGGRE USeOE3. 
04 0004A RET 
; Routine Size: 75 bytes, Routine Base: DBGSCODE + 12AE 


Page| 190 


3 EpeeuG. SRcSbacentvec 658; 


46 


bFen-1904 00: 
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1 


voe=000 


pom - £ 
ts) o wv 
Be 
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aa @ oe wv 
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ee © s. © 
“a = oo —_ 
vy ae 
ee w oo vw 
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Ba aw Ld 
££ > 4 ca a@ 
vv : mm 2 
eo = so 
at be S 2 Y S 
oe & S S 2 
ee 
—~—— © ~~ ~~ © 
we wn £ & 
ee © ‘= o @ 
££ £ tm - £ 
i “ = 
. 
ree 
om 
em 
— 
s- 
es 
oa 
wae 
So 
cr ve 
ow So 
ew 
v> Le] 
[ven 4 
>w oS ee ee 2a 2a ce te ce 
~oO orm rNne 
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04 RET 
20 A2 9 p 9$: chp R P P. ABE 
50 8 MOVL #8, RO 
RET 
24 «2 0 p 10$:  CMPL RO, P.ABF 
N 
0 ae 
Be RET 
28 A : 118: CPL RO P.ABG 
Bea, «=s«é48 
2c a2 p CMPL RO, P.ABH 
BEQL «sé 
30 A2 p CMPL RO, -P.ABI 
4 BeEQL«=s«éd188 
34 A2 5 } CMPL RO, P.ABJ 
44 BEQL «6-208 
03 08 A 0} CMPL LENGTH, ri} 
4 BLSS 1$ 
A EXTZV #0, #24, -3(R1), R 
50 FD SOA 1 EF Z 24, -3(R1), RO 
i's 2h Birk 8g Poa 
50 A p60 MOVL #10, RO 
3C A 0 D} 128 CMPL R9 P.ABL 
4 2 BNEG 4 =-«1138 
50 be ROVL #11, RO 
40 A2 0 D1 B6 13$:  CMPL Rg P.ABM 
4 BA BNEG si 
50 C B60 DOOBC 148: MOVL #12, RO 
44 A2 0 p} 15$: CMPL Rg P.ABN 
4 ; BNEG = f 
50 D 90 f 16$ MOVL #13, RO 
RET 


178: CMP RO, P.ABO 
6 me 


Cc BNEQ 

18$: MOVL #14, RO 
) RET 
d8 


4C a2 © D1 00004 198: CMPL RO, P.ABP 
& 12 000 BNEG = 218 
50 F BO Q000A 208: MOVL #15, RO 
50 01 CE QO00E 218: RNEGL #1, RO 
E RET 


3 Routine Size: 226 bytes, Routine Base: DBGSCODE + 12F9 


wm 


ROUT INE 


INE Check_Register(Address : UNSIGNED) = 
BEGIN 


Pescsscse 


Sete Sete te tee 
eed eh a aed ed oh 
So 


FS LRASASS 


yfcden-1964 90:24:49 yay oLtgse3 


volves: | ' ge NOTE NO wa” ee 


FoR atP YN YRCN RETURN =1; 
i cAddress/ uPvAL 


~EXTRN 
0000 00000 CHECK ofeeh rene 


9 MOV 

2 ihe 
i 
§& 
64 


DBGSCODE + 1308 


DBGSREG_VALUES 
save nee VAL 
DaGERE REG VALUES, RO 
ADRESS, $80 
ADDRESS, a3 

#i, RO 

#4, ADDRESS, RO 


: 


Hesbert9Ee QO:R4:8? YMG StasaHE thet 28, 


ROUTINE Store Operand(EnCode .Operend.Length) : NOVALUE = 

1 EnCode_ : REF BLOCK C60 .evted FIELD(EnCode_Fields), 

: § Operand : REF VECTOR YTEJ; 

1 ch$move(.Length, Operand(0], 

3 5 § “Encadet Enc Output “Cength) + .EnCodelEnc_Output_Buffer)); 
ib ; } EncodelEnc_Output_Length) = .EnCodelEnc_Output_Length] + .Length; 


007C 00000 STORE _OPERAND: 
WORD seve. ge. R3,R4,R5,R6 


56 4 AC D 4 MOVL Beco 
50 08 A6é C A6 0 ADDL zine) 8(R6), RO 
60 08 BC € AC 28 0000 mMovC LENGTH, @OPERAND, (RO) 
08 AC ? Oo} apol LENGTH, 8(R6) 


Routine Size: 24 bytes, Routine Base: DBGSCODE + 13FE 
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Danencpec ifcdeo-1904 00:26:49 YANGHY SL ign= 82 4.0742 


} ROUT Joe Cr int Adéress (Address) : NOVALUE = 
i hark = DecéPush.1 0 

Uu a 
1 DBG$Prin “identifier Pc( Address); 
139? possPop. empmem( mark); 


0004 00000 PRINT_ADDRESS: 
WORD 


WO Save R2 
000000006 99 9 FB tALLS a. DBGSPUSH_TEMPMEM 
06 =A 4 C PUSH NpoRESS. 
000000006 00 f FB F CALLS #1, DBGSPRINT_IDENTIFIER_PC 
2 DD 0001 PUSHL MARK 
L . 2. 
000000006 00 F 1 CALLS #1, DBGSPOP_TEMPMEM 
04 0001F RET 


Routine Size: 32 bytes, Routine Base: DBGSCODE + 1416 


1968 SI i ROUTINE Print_0 d(Context) : NOVALUE 
rint_Operand(Context) : = 
136 Ore BEGIN 
1970 7 LOCAL 
1971 74 mark, 
1O¢ ie vms_desc : dbg$stg_desc; 
1974 of mark = DBG$Push_T (); 
1975 A vms_desc(dsc$b_class = dsc$k_class_s; 
1376 0 vms_descldsc$b_dtype = .data_typel.context); 
197 0 vms_descldsc$w_length])_ = .data_sizel.contextJ; 
1978 081 vas desc dsc$a_pointer) = Op_Buf fer; 
19 0. § DBGSPrint_Value(DBG$Make_Val_Desc (vms_desc ,dbg$k_value_desc) ,dbg$k_default,False.False); 
19 tt DBGSPop_Tempmem( .mark); 
1981 ND; 
0004 00000 PRINT_OPERAND: 
-WOR Save R2 
C2 4 SUBL #i2, SP 
000000006 F 2 Rove” ny. PSSPUSH_TERPRER 
03 A VAS _DESC+3 
$5 0 , FF 5 MOVAB DATA T¥PE RO 
02 ar Bc40 1A MOVE  a@CONTEXTCROJ, VMS_DESC+2 
30 00000000", FF ge 9 MOVAB DATA S126 Rb 
6e Bc40 MOVZBW @CONTEXTLROJ, VMS_DESC 
04 AE 00000000" BFE MOVAB OP_BUFFER, VMS_DESC+4 
—e 7 CLRQ -(SP) 


roe es 


3086 
2067 


2068 
2069 


Setete Sete Se tsete Seed 
~™m™ ror 
aN 
O00 


pBsENenEC ibdeo-190e 90:24:49 yaustd eLtys32 40-743 


4 d PUSH 

7E 4 +4 4 : paid, Al #122, =(SP) 

000000006 00 5 4 A hin Of 1 bes ace -VAL_DESC 

000000006 00 52 4 oc8 ae #4, DBGSPRINT_VALUE 

000000006 00 i FB 0081 CALLS #1, DBGSPOP_TEMPMEM 
04 8 RET 


; Routine Size: 89 bytes, Routine Base: DBGSCODE + 1436 


vasenspe Veceect94e QOG¢:47  YAEGLE ShpadzathetES., "ome ae 
ROUTINE Scan_Operand(Input_Desc : REF dbg$stg_desc,Delimiter) = 
BUILTIN ACTUALCOUNT ,ACTUALPARAMETER; 
LOCAL 
otal bons : dbg$stq des 
char ~ : BYTE UNSIGNED; 
Depth = (IF Actualcount() LSS 3 THEN 0 ELSE Actualparameter(3)+1); 
Skip_Leading_Blanks(.Input_Desc); 
ch$move(8,Input_Desc(0,0,0,0],Local_Descl0,0,0,0]); 
WNILE gyecet. DescCdsc$w_length] GEQ 0 DO 


- se Target, eel be 
ae 


SSLSSISSSESENSS 
wa 
WANA ES HIAPIPOPINININININIPUNININUNINY = 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Descldsc$w length] EQL_0 THEN 0 
-(.Local_Descldsc$a_pointer])<0,8,0>); 


r EaL %x"09" THEN | (.Local_Descldsc$a_pointer])<0,8,0> = char = %C' '; 
ie not gh ot Ae. HEN 

ae 2! pPegctds fesse NENT LOOP; - .Input_DescCdsc$a_pointer]) 

siter NEG XC" T 


a 

URN 

' 

Se per GEQ %¢° e ) AND (.char_LEQ 
N ¢ d 

E 

E 


BREVIS 


SET SEES PERE SSE RES Tot 
SS23 


o 

ee | 

is) 

oe 

“ on 
peneo - - 


-Local sPese ds¢$e. pointer2}<0.8, char = (%C'a'-ZC°A") 
F .char EOL Hare THEN Target = 
Se IF .char EQL 2C°C* THEN Target = % 


neni ~Beschdactu. Length) = .Local_Desc(dsc$w ‘Mona - 1; 
Local-Descldsc$ 3-poin inter] = .Local-Desc(dsc$a_pointer] + 1; 
IF ler at NEQ 


eoaan = Scan sgperendtt cal _Desc,.Target,.Depth) + 1; 
Local ~peschdszgu. length]. =".Local pesctdacfu. length -.Length; 
Local. Desc(dsc$a_pointer] = .Local-Descldsc$a_pointerJ+.Length; 


Li: 2095" _ 
ways 


iF ve pepth NEQ 0 be ae iF nodelimtr); 
—* -Input_Descldsc$w_lengt 


Oe ee ad aed ad Sd od dt 


POPRONOMONUNY 2 2 es 


ONOH UNSW “"OOONOUFS Wo 


SARIN K WWE LS SWUUMMUF SLUM FPuUw 


Se Ge Ge Se Ge Se Ge Ge Se FF Gs Ge Ge SO Se Se Ge Se Ge Se Gs Ge Ge Ss Ge SS Se Ge Se Fe Se SF Ss Ss Se Se Se SO Se Se SS Se Se SF Sees 


Ss 
Quik 
rors 
— 
roron- 


OOFC 00000 SCAN_OPERAND: 
- Seye R2 R2,R3,R4,R5,R6,R7 


és : ee 


CLRL DEPTH 


2085 
2093 


DBGENcBEC ifcdeortggs 99:24:49 YARGNY BLigs=82 vaO-74g Page 108 


5 1 C BRB 2$ ; 
57 oC A 82 c} 1§: ADDL3 #1, 12(¢AP), DEPTH : 
5 04 =A 60 13 28: OV INPUT DESC, R + 2095 
0000v Gf f 1 CALLS #1, SKIP_LEADING_BLANKS ; 
6E 6 MOV #8. (R6); LOCAL_BESC + 2097 
: 3$: ist L Ear_pesc 3 2102 
g OT 80058 geasstiéS 
39 04 A A 4$ MOVZBL aL OCAL DESC+4, RO + 2103 
9 : MOVB RO, CHAR + 2102 
B CLRL _—« TARGET : 21 
09 CMPB HAR, #9 + 2105 
‘ 1 BNEQ : 
> B 4 move ff 3. CHAR : 
04 c MOVE 3s #32, SLOCAL DESC+4 ; 
08 AC 52 2 i 63 CMP ZV 4 » #8, CHAR, DELIMITER + 2106 
50 04 AE 04 Ab i 43 SUBL3 4(R6), LOCAL_DESC+4, RO t 2107 
od aay es 
22 08 AC p4 ° CMPL DE IMITER, #34 + 2109 
Hy 3 00 BEQL 1 3 
61 BF 2 91 000 CMPB HAR, #97 : 2111 
op iF C BLSSU : 
7A oS g 71 cre HAR, #122 F 
04 BE 52 20 83 0 suBB #52. CHAR, @LOCAL_DESC+4 + 2112 
22 33 91 00068 8$: CMPB CHAR, #34 : 2113 
1 BNEQ 3 
51 2D MOVL #34, TARGET ; 
6 13 BRB 11$ ; 
28 : 91 9$ C CHAR, #40 + 2114 
1 BNEQ 10$ ; 
51 9 : VL #41, TARGET ; 
A BRB 11$ ; 
58S 2 91 10$ CMPB CHAR, #91 > 2115 
" 12 NEQ 1 3 
51 5p 8F QA MOVZBL #93, TARGET ; 
6 87 118 DECW LOCAL_D > 2117 
04 AF D INCL LOCAL ~DESC+4 : 211 
ay peat, ett oe 
0082 F Be PUSHR #*M<R1,R7> > 2121 
AE OF PUSHAB LOCAL bESC : 
FF62 «CF F CALLS #3, SCAN_OPERAND ; 
D INCL. LENGTH ; 
6E A SUBW2 LENGTH, LOCAL_DESC : 21 
04 AE - g ADDL NGTH, LOCAL ~DESC+4 : 21 
p 128:  TSTL p PTH : 2126 
D BEQL F 
00028218 8F oD PUSHL #164376 : 
000000006 00 1 FB CALLS #1, LIBSSIGNAL ; 


DRGENEREC " 10 
1e=835-198e 99:98: OeBUG. SACTBBGENC DES, Pa 
= ss ena 138: ha et: i UG. SReSBBGENCDEC 699; 1 0 193 
; Routine Size: 191 bytes, Routine Base: DBGSCODE + 148F “ : 3138 


NCDEC -$ep-1984 00:24:49 AX-11 Bliss-32 V4 
vpee 16-ep-198 90:98:85 DEBUG. SRCID DBGENCD 
: 1 ROUTINE Skip_Leading Blanks (Input_desc : REF dbg$stg_desc) : NOVALUE = 
3 i WHILE, . Input. Descldsc$w — GTR 0 DO 
; 1 LOCAL char : BYTE UNS! 

3 1 char = noe or input D sspas dscbe a: pointer}) <0, 8 9; 
; 135 IF (.char NEQ 2 e D’tochar NEQ 34°69") THEN EX TLooP; 
3 5 1 § Input. ieee ola. engthy =. ah ~Beschdsc$w_ length]. - 
: 0 1 input. =Descldsc$a_pointer] = .Input_Descldsc$a_pointer] + ii 
3 20 1 § END: 
0000 00000 SKIP_LEADING_BLANKS: 
-WORB Save nothing 
50 4 ac D Vv INPUT_DESC, RO 
4 8 t 1$: TSTW NPU NPUT_DESC 
1 BEQL 
51 04 8 3 MOVB a4(RO) _— 
20 F CMPB SHAR, #3 
5 1 \¢ BEQL $ 
09 19 1 CMPB § ~ a9 
8 1 17 BNEQ $ 
6% BC B 19 2$ DECW @INPUT_DESC 
a ee 
04 0021 3$ RET 
; Routine Size: 34 bytes, Routine Base: DBGSCODE + 154E 
3; 2039 140 1 
3; 2040 141 1 END 
3 2041 142 0 ELUDOM 
-EXTRN LIBSSIGNAL 

; PSECT SUMMARY 
; Name Bytes Attributes 
} DBGSPLIT 4640 NOVEC, NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
3; DBGSOWN ig WRT, RD .NOEXE.NOSHR, LCL. REL. CON. PIC.ALIGN(2) 
3; DBGSCODE 548 NOVEE *NOWRT, RD , EXE. SHR, LCL, REL, CON, PIC,ALIGN(O) 
3 Library Statistics 
: 2 eo Ge ee Symbols Sonmeaeae Pages Processing 


roe 9 


NCDEC 16-5 $ep-1984 00:24:49 AX-11 Bliss-32 V4.0-74 
ite Oe 12=8e8=138S 99:98:87 HONaUG Bhi ssezew tee os3.1 
; File Total Loaded Percent Mapped Time 
-_ :FSYSLIBIL 186 2 100 :01.9 
an :EDEBUG. OB ethotber 432: 31 § Q t 09:00-) 

“i :FDEB ug-064 DBGL IB L3 154 5 9 :01.9 
EF : (DEB JJOS CROs (32:1 , 
nina ane psec 8 : 3} $8 :88:3 
3: Information: 1 

3; Warnings: 

3; Errors: 

3 COMMAND QUALIFIERS 

} BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:DBGENCDEC/OBJ=0BJ$:DBGENCDEC MSRC$:DBGENCDEC/UPDATE=(ENH$: DBGENCDEC) 
s § Stee: 5488 ¢ .° 4656 data bytes 

: Flapsed. Time: :22.8 

3 Lines/CPU Min: 3 6 

3 Lexemes/CPU-Min: 43556 

3 4 es Used: 668 pages 

3 Compilation Complete 
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